(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    532285,      11451]
NotebookOptionsPosition[    508922,      10691]
NotebookOutlinePosition[    509266,      10706]
CellTagsIndexPosition[    509223,      10703]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"applosses4", ".", "nb"}], " ", "Will", " ", "Saunders", " ", 
    "AAO", " ", "Jan", " ", "2013."}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{" ", "1", ")"}], " ", "Sets", " ", "up", " ", "approximation", 
      " ", "for", " ", "convolved", " ", "profile", " ", "for", " ", "site", 
      " ", "seeing", " ", "with", " ", "Moffat", " ", "\[Beta]"}], "=", 
     RowBox[{"3.5", " ", "profile"}]}], ",", " ", 
    RowBox[{"exponential", " ", "or", " ", "deVaucouleurs", " ", 
     RowBox[{
      RowBox[{"R", "^", "1"}], "/", "4"}], " ", "image", " ", "profiles"}], 
    ",", " ", 
    RowBox[{
    "and", " ", "Gaussian", " ", "image", " ", "degradation", " ", "from", 
     " ", "spot", " ", "sizes"}], ",", " ", 
    RowBox[{"guiding", " ", "erros"}], ",", " ", 
    RowBox[{
     RowBox[{"dome", "/", "telescope"}], " ", "seeing"}], ",", " ", 
    RowBox[{"deviations", " ", "from", " ", "ideal", " ", "optics", " ", 
     RowBox[{"etc", ".", " ", "\[IndentingNewLine]", "The"}], " ", 
     "approximation", " ", "assumes", " ", "a", " ", "Moffat", " ", "profile",
      " ", "for", " ", "the", " ", "convolved", " ", "profile"}], ",", " ", 
    RowBox[{
    "with", " ", "\[Beta]", " ", "and", " ", "R", " ", "chosen", " ", "to", 
     " ", "give", " ", "the", " ", "correct", " ", "central", " ", "surface", 
     " ", "brightness", " ", "and", " ", "2", "nd", " ", 
     RowBox[{"moment", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{" ", "2", ")"}], " ", "Calculates", " ", "aperture", " ", 
     "losses", " ", "for", " ", "this", " ", "profile", " ", "for", " ", 
     "circular", " ", "apertures"}], ",", " ", 
    RowBox[{
    "including", " ", "any", " ", "offset", " ", "from", " ", "the", " ", 
     "image", " ", 
     RowBox[{"center", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{" ", "3", ")"}], " ", "Estimates", " ", "relative", " ", 
     RowBox[{"S", "/", "N"}], " ", "at", " ", "Zenith"}], ",", " ", 
    RowBox[{
     RowBox[{"assuming", " ", "sky"}], "-", 
     RowBox[{"limited", " ", "observations"}]}], ",", " ", 
    RowBox[{
    "and", " ", "including", " ", "a", " ", "factor", " ", "for", " ", 
     "intrinsic", " ", "spectral", " ", "PSF", " ", "degradation", " ", "in", 
     " ", "the", " ", "sperctrograph", " ", "due", " ", "to", " ", "the", " ",
      "finite", " ", "fiber", " ", 
     RowBox[{"size", ".", " ", "Plots"}], " ", "and", " ", "maximises", " ", 
     RowBox[{"S", "/", "N"}], " ", "for", " ", "various", " ", "image", " ", 
     "types", " ", "and", " ", "parameters", " ", "as", " ", "a", " ", 
     "function", " ", "of", " ", "fiber", " ", 
     RowBox[{"size", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{" ", "4", ")"}], " ", "calculates", " ", "the", " ", 
     "differential", " ", "refraction", " ", "for", " ", "arbitrary", " ", 
     "ZD", " ", "and", " ", "pair", " ", "of", " ", "wavelengths"}], ",", " ",
     
    RowBox[{
    "according", " ", "to", " ", "ESO", " ", "formula", " ", "for", " ", 
     RowBox[{"LaSilla", ".", " ", "Also"}], " ", "the", " ", "sky", " ", 
     "brightness", " ", "and", " ", "extinction", " ", "as", " ", "a", " ", 
     "fucnction", " ", "of", " ", 
     RowBox[{"AM", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{" ", "5", ")"}], " ", "Using", " ", "SDSS", " ", "AM", " ", 
     "distn"}], ",", " ", 
    RowBox[{
    "finds", " ", "overall", " ", "survey", " ", "time", " ", "to", " ", "a", 
     " ", "fixed", " ", 
     RowBox[{"S", "/", "N"}], " ", "for", " ", "all", " ", "target", " ", 
     "types"}], ",", "  ", 
    RowBox[{
    "tests", " ", "these", " ", "numbers", " ", "for", " ", "robsutness"}], 
    ",", " ", 
    RowBox[{
    "and", " ", "determines", " ", "scalings", " ", "between", " ", "the", 
     " ", "input", " ", "parameters", " ", "and", " ", "fiber", " ", "size", 
     " ", "and", " ", "survey", " ", 
     RowBox[{"time", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{" ", "6", ")"}], " ", "Examines", " ", "effect", " ", "of", " ", 
     "ADC", " ", "on", " ", "survey", " ", "time"}], ",", " ", 
    RowBox[{"including", " ", "throughut", " ", "derived", " ", "from", " ", 
     RowBox[{"SK", "'"}], "s", " ", "ADC", " ", 
     RowBox[{"design", "."}]}]}], "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "To", " ", "be", " ", "read", " ", "in", " ", "conjunction", " ", "with", 
     " ", "technical", " ", 
     RowBox[{"note", " ", "'"}], "DESpec_ADC", "_aperture", "_survey", 
     RowBox[{"_speed", "'"}]}], ",", " ", 
    RowBox[{"WS", " ", 
     RowBox[{"1", "/", "2013"}]}]}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.567062189125*^9, 3.5670625644375*^9}, {
  3.567062596875*^9, 3.567063275375*^9}, {3.5670633216875*^9, 
  3.56706338415625*^9}, {3.56706452175*^9, 3.567064522296875*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"Set", " ", "up", " ", "Moffat", " ", "PSF"}], " ", "*)"}]], "Input",\

 CellChangeTimes->{{3.567063294171875*^9, 3.56706330615625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Moff", "[", 
   RowBox[{"r_", ",", "R_", ",", "\[Beta]_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"\[Beta]", "-", "1"}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{"Pi", " ", 
     RowBox[{"R", "^", "2"}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", " ", "+", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"r", "/", "R"}], ")"}], "^", "2"}]}], ")"}], "^", 
      "\[Beta]"}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.560663470125*^9, 3.56066358246875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NIntegrate", "[", 
  RowBox[{
   RowBox[{"2", " ", "Pi", " ", "r", " ", 
    RowBox[{"Moff", "[", 
     RowBox[{"r", ",", "1.2345", ",", "3.5567"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.560764330265625*^9, 3.56076444165625*^9}}],

Cell[BoxData["0.9999999999999275`"], "Output",
 CellChangeTimes->{{3.5607643706875*^9, 3.5607644433125*^9}, 
   3.560764970609375*^9, 3.560788214296875*^9, 3.561129168140625*^9, 
   3.561129725375*^9, 3.561728193953125*^9, 3.561789758546875*^9, 
   3.56198251784375*^9, 3.56204626709375*^9, 3.56206843465625*^9, 
   3.56235153059375*^9, 3.562354625296875*^9, 3.562465815487381*^9, 
   3.562961630828125*^9, 3.56308661403125*^9, 3.56372789665625*^9, 
   3.563821223046875*^9, 3.563838803796875*^9, 3.563945756625*^9, 
   3.5639853266875*^9, 3.564021803703125*^9, 3.564676645265625*^9, 
   3.56492529471875*^9, 3.564929129296875*^9, 3.565001659671875*^9, 
   3.565075909078125*^9, 3.56534987625*^9, 3.565454628984375*^9, 
   3.565533435984375*^9, 3.566307530203125*^9, 3.566580515390625*^9, 
   3.56662165465625*^9, 3.566743375953125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Rhwhm35", "=", 
  RowBox[{"r", "/.", 
   RowBox[{"FindRoot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Moff", "[", 
       RowBox[{"r", ",", " ", "1.", ",", "3.5"}], "]"}], " ", "==", " ", 
      RowBox[{
       RowBox[{"Moff", "[", 
        RowBox[{"0.", ",", " ", "1.", ",", "3.5"}], "]"}], "/", "2"}]}], ",", 
     " ", 
     RowBox[{"{", 
      RowBox[{"r", ",", " ", ".5"}], "}"}]}], "]"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"find", " ", "HWHM"}], " ", "*)"}]}]}]], "Input",
 CellChangeTimes->{
  3.548418901937459*^9, {3.555046043015625*^9, 3.5550460586875*^9}, {
   3.555411630375*^9, 3.55541163109375*^9}, {3.555412128171875*^9, 
   3.555412134796875*^9}, {3.559893578953125*^9, 3.559893585734375*^9}, {
   3.56066697921875*^9, 3.560667059625*^9}, {3.567065518984375*^9, 
   3.56706552078125*^9}, {3.567065786953125*^9, 3.567065852625*^9}, {
   3.567065910703125*^9, 3.56706592084375*^9}}],

Cell[BoxData["0.4679889466691232`"], "Output",
 CellChangeTimes->{{3.560667015859375*^9, 3.560667060953125*^9}, 
   3.5606900073125*^9, 3.560754318328125*^9, 3.5607573380625*^9, 
   3.560757969703125*^9, 3.5607674785625*^9, 3.560767745484375*^9, 
   3.560768694796875*^9, 3.56076900725*^9, 3.5607693198125*^9, 
   3.560770018671875*^9, 3.5607727531875*^9, 3.5617905233125*^9, 
   3.56198251809375*^9, 3.562046268765625*^9, 3.5620684350625*^9, 
   3.562351530890625*^9, 3.56235462534375*^9, 3.562465815831131*^9, 
   3.562961631109375*^9, 3.56308661434375*^9, 3.5637278971875*^9, 
   3.56382122309375*^9, 3.563838803828125*^9, 3.56394575709375*^9, 
   3.56398532725*^9, 3.5640218043125*^9, 3.564676646328125*^9, 
   3.5649252966875*^9, 3.564929130046875*^9, 3.565001660921875*^9, 
   3.565075909109375*^9, 3.565349876515625*^9, 3.565454629765625*^9, 
   3.565533436296875*^9, 3.566307530265625*^9, 3.566580515765625*^9, 
   3.566621654734375*^9, 3.56674337603125*^9, 3.567065524875*^9, {
   3.567065804359375*^9, 3.567065855234375*^9}, 3.5670659246875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"2", " ", "Pi", " ", "r", " ", 
    RowBox[{"r", "^", "2"}], 
    RowBox[{"Moff", "[", 
     RowBox[{"r", ",", "1", ",", "\[Beta]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}], ",", 
   RowBox[{"Assumptions", "\[Rule]", 
    RowBox[{
     RowBox[{"Re", "[", "\[Beta]", "]"}], ">", "2"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.560765687734375*^9, 3.560765730796875*^9}}],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{
   RowBox[{"-", "2"}], "+", "\[Beta]"}]]], "Output",
 CellChangeTimes->{{3.560765689375*^9, 3.560765731921875*^9}, 
   3.56078821703125*^9, 3.5611291731875*^9, 3.5611297284375*^9, 
   3.56172819578125*^9, 3.561789758765625*^9, 3.5619825210625*^9, 
   3.56204628159375*^9, 3.562068438234375*^9, 3.562351533578125*^9, 
   3.562354625546875*^9, 3.562465819003006*^9, 3.562961633984375*^9, 
   3.563086617171875*^9, 3.56372790084375*^9, 3.563821223609375*^9, 
   3.563838804046875*^9, 3.563945759421875*^9, 3.56398533184375*^9, 
   3.564021808578125*^9, 3.564676653703125*^9, 3.564925304578125*^9, 
   3.5649291336875*^9, 3.565001668578125*^9, 3.565075909328125*^9, 
   3.565349877140625*^9, 3.565454634546875*^9, 3.565533444921875*^9, 
   3.56630753075*^9, 3.566580528265625*^9, 3.5666216551875*^9, 
   3.56674337878125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"MoffM2", "[", 
   RowBox[{"r_", ",", "RM_", ",", "\[Beta]_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"\[Beta]", "-", "1"}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{"Pi", " ", 
     RowBox[{"(", 
      RowBox[{"\[Beta]", "-", "2"}], ")"}], 
     RowBox[{"RM", "^", "2"}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", " ", "+", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"r", "/", "RM"}], ")"}], "^", "2"}], "/", 
         RowBox[{"(", 
          RowBox[{"\[Beta]", "-", "2"}], ")"}]}]}], ")"}], "^", "\[Beta]"}]}],
     ")"}]}]}]], "Input",
 CellChangeTimes->{{3.560765740484375*^9, 3.56076579303125*^9}, {
  3.5607658941875*^9, 3.5607659178125*^9}, {3.560766265375*^9, 
  3.560766324421875*^9}, {3.56076691384375*^9, 3.56076694103125*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"so", " ", "for", " ", "MoffM2"}], ",", " ", 
   RowBox[{"M2", " ", "=", " ", 
    RowBox[{
     RowBox[{"RM", "^", "2"}], " ", "always"}]}]}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.560765798859375*^9, 3.560765818375*^9}, {
   3.56076692603125*^9, 3.560766933109375*^9}, {3.564992746046875*^9, 
   3.5649927500625*^9}, 3.564992812140625*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NIntegrate", "[", 
  RowBox[{
   RowBox[{"2", " ", "Pi", " ", "r", " ", 
    RowBox[{"r", "^", "2"}], 
    RowBox[{
     RowBox[{"MoffM2", "[", 
      RowBox[{"r", ",", "1.2345", ",", "3.5678"}], "]"}], "/", 
     RowBox[{"1.2345", "^", "2"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.560765823859375*^9, 3.560765885578125*^9}, {
  3.560766440203125*^9, 3.560766440328125*^9}, {3.56076670996875*^9, 
  3.56076680453125*^9}}],

Cell[BoxData["1.0000000000744789`"], "Output",
 CellChangeTimes->{{3.56076584725*^9, 3.560765923640625*^9}, 
   3.560766334875*^9, 3.560766444140625*^9, {3.560766712265625*^9, 
   3.560766720796875*^9}, {3.560766757921875*^9, 3.560766805171875*^9}, 
   3.560766948671875*^9, 3.5607882259375*^9, 3.5611291846875*^9, 
   3.561129739109375*^9, 3.561728202*^9, 3.561789764390625*^9, 
   3.561982526359375*^9, 3.562046287109375*^9, 3.56206844359375*^9, 
   3.562351538703125*^9, 3.562354627234375*^9, 3.562465824284256*^9, 
   3.562961639296875*^9, 3.563086622671875*^9, 3.5637279060625*^9, 
   3.563821225421875*^9, 3.563838805671875*^9, 3.563945764359375*^9, 
   3.56398533753125*^9, 3.564021814375*^9, 3.564676669828125*^9, 
   3.564925318375*^9, 3.564929145953125*^9, 3.56500166890625*^9, 
   3.565075909375*^9, 3.565349877453125*^9, 3.56545463465625*^9, 
   3.565533445125*^9, 3.566307530828125*^9, 3.566580528421875*^9, 
   3.566621655328125*^9, 3.566743378953125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MoffM2", "[", 
  RowBox[{"0", ",", "RM", ",", "\[Beta]"}], "]"}]], "Input",
 CellChangeTimes->{{3.5607896415*^9, 3.56078964628125*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", "\[Beta]"}], 
  RowBox[{"\[Pi]", " ", 
   SuperscriptBox["RM", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "2"}], "+", "\[Beta]"}], ")"}]}]]], "Output",
 CellChangeTimes->{3.560789647765625*^9, 3.561129184734375*^9, 
  3.56112973915625*^9, 3.56172820203125*^9, 3.561789764421875*^9, 
  3.561982526375*^9, 3.562046287421875*^9, 3.562068443625*^9, 
  3.56235153871875*^9, 3.56235462728125*^9, 3.562465824299881*^9, 
  3.562961639328125*^9, 3.563086622703125*^9, 3.56372790609375*^9, 
  3.5638212254375*^9, 3.563838805703125*^9, 3.563945764359375*^9, 
  3.563985337546875*^9, 3.564021814390625*^9, 3.564676669921875*^9, 
  3.564925318453125*^9, 3.564929145984375*^9, 3.565001668984375*^9, 
  3.56507590940625*^9, 3.565349877609375*^9, 3.5654546346875*^9, 
  3.5655334451875*^9, 3.566307530875*^9, 3.56658052846875*^9, 
  3.566621655390625*^9, 3.56674337903125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"R2HWWM35", "=", 
  RowBox[{"r", "/.", 
   RowBox[{"FindRoot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"MoffM2", "[", 
       RowBox[{"r", ",", " ", "1.", ",", "3.5"}], "]"}], " ", "==", " ", 
      RowBox[{
       RowBox[{"MoffM2", "[", 
        RowBox[{"0.", ",", " ", "1.", ",", "3.5"}], "]"}], "/", "2"}]}], ",", 
     " ", 
     RowBox[{"{", 
      RowBox[{"r", ",", " ", ".5"}], "}"}]}], "]"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"find", " ", "HWHM"}], " ", "*)"}]}]}]], "Input",
 CellChangeTimes->{
  3.548418901937459*^9, {3.555046043015625*^9, 3.5550460586875*^9}, {
   3.555411630375*^9, 3.55541163109375*^9}, {3.555412128171875*^9, 
   3.555412134796875*^9}, {3.559893578953125*^9, 3.559893585734375*^9}, {
   3.56066697921875*^9, 3.560667059625*^9}, {3.56076682490625*^9, 
   3.560766825515625*^9}, {3.560767232625*^9, 3.56076723340625*^9}, {
   3.567063703234375*^9, 3.567063734328125*^9}, {3.567063767203125*^9, 
   3.5670637933125*^9}, {3.567066570765625*^9, 3.56706668646875*^9}}],

Cell[BoxData["0.5731670623009607`"], "Output",
 CellChangeTimes->{{3.560667015859375*^9, 3.560667060953125*^9}, 
   3.5606900073125*^9, 3.560754318328125*^9, 3.5607573380625*^9, 
   3.560757969703125*^9, 3.560762655359375*^9, 3.560764017375*^9, 
   3.560764970671875*^9, 3.560766830109375*^9, 3.560767234359375*^9, 
   3.560788225984375*^9, 3.561129185125*^9, 3.561129739234375*^9, 
   3.56172820253125*^9, 3.5617897645625*^9, 3.56198252640625*^9, 
   3.562046287578125*^9, 3.562068443640625*^9, 3.56235153871875*^9, 
   3.5623546273125*^9, 3.562465824315506*^9, 3.562961639359375*^9, 
   3.563086622734375*^9, 3.563727906125*^9, 3.563821225453125*^9, 
   3.563838805734375*^9, 3.563945764375*^9, 3.5639853375625*^9, 
   3.56402181440625*^9, 3.56467667003125*^9, 3.564925318546875*^9, 
   3.56492914603125*^9, 3.565001669046875*^9, 3.5650759094375*^9, 
   3.565349877828125*^9, 3.56545463471875*^9, 3.565533445234375*^9, 
   3.566307530921875*^9, 3.566580528515625*^9, 3.56662165546875*^9, 
   3.5667433791875*^9, {3.567063716546875*^9, 3.567063736328125*^9}, {
   3.56706376834375*^9, 3.567063794296875*^9}, {3.567066669875*^9, 
   3.567066687140625*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"so", " ", "HWHM", " ", "is", " ", "0.573167`", " ", "R"}], "  ", 
  "*)"}]], "Input",
 CellChangeTimes->{{3.560763370703125*^9, 3.5607634458125*^9}, {
   3.56076427978125*^9, 3.560764281015625*^9}, 3.56076684*^9, {
   3.560766893671875*^9, 3.5607668955625*^9}, {3.56076724446875*^9, 
   3.5607672775625*^9}, {3.56076732565625*^9, 3.56076733928125*^9}, {
   3.5607673715625*^9, 3.56076737384375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"HWHM2R35", "=", 
  RowBox[{"1", "/", "R2HWWM35"}]}]], "Input",
 CellChangeTimes->{{3.560767248078125*^9, 3.56076726378125*^9}, {
  3.56706669225*^9, 3.567066705921875*^9}}],

Cell[BoxData["1.7446920204827057`"], "Output",
 CellChangeTimes->{3.560767264953125*^9, 3.56078822603125*^9, 
  3.561129185171875*^9, 3.561129739296875*^9, 3.5617282025625*^9, 
  3.5617897646875*^9, 3.561982526421875*^9, 3.562046287703125*^9, 
  3.562068443671875*^9, 3.562351538734375*^9, 3.56235462734375*^9, 
  3.562465824331131*^9, 3.562961639375*^9, 3.563086622765625*^9, 
  3.56372790615625*^9, 3.56382122546875*^9, 3.563838805765625*^9, 
  3.563945764390625*^9, 3.563985337578125*^9, 3.564021814421875*^9, 
  3.56467667009375*^9, 3.564925318625*^9, 3.564929146078125*^9, 
  3.56500166915625*^9, 3.56507590946875*^9, 3.565349877953125*^9, 
  3.56545463475*^9, 3.565533445296875*^9, 3.566307530984375*^9, 
  3.5665805285625*^9, 3.566621655546875*^9, 3.566743379265625*^9, 
  3.5670667076875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Moff35h", "[", 
   RowBox[{"r_", ",", "Rhwhm_"}], "]"}], ":=", 
  RowBox[{"5", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Rhwhm", "^", "2"}], "/", 
     RowBox[{"(", 
      RowBox[{"2", "Pi"}], ")"}]}], "/", 
    RowBox[{"Rhwhm35", "^", "2"}]}], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", " ", "+", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"Rhwhm35", " ", 
         RowBox[{"r", "/", "Rhwhm"}]}], ")"}], "^", "2"}]}], ")"}], "^", 
    RowBox[{"(", 
     RowBox[{"-", "3.5"}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.5598931103125*^9, 3.559893154234375*^9}, {
   3.5598932253125*^9, 3.559893251921875*^9}, 3.55989340371875*^9, {
   3.559893714171875*^9, 3.559893765921875*^9}, 3.55989393721875*^9, {
   3.559894153171875*^9, 3.559894156234375*^9}, 3.560961433*^9, {
   3.56706599846875*^9, 3.5670659985*^9}, {3.567066071609375*^9, 
   3.5670660771875*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{
    RowBox[{
    "Moff35h", " ", "is", " ", "a", " ", "Moffat", " ", "profile", " ", 
     "with", " ", "beta"}], "=", "3.5"}], ",", " ", 
   RowBox[{
    RowBox[{"defined", " ", "by", " ", "its", " ", "half"}], "-", 
    RowBox[{"width", " ", "at", " ", "half", " ", "height"}]}]}], " ", 
  "*)"}]], "Input",
 CellChangeTimes->{{3.56499285171875*^9, 3.5649929201875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{"Moff35h", "[", 
    RowBox[{"1", ",", "1"}], "]"}], "/", " ", 
   RowBox[{"Moff35h", "[", 
    RowBox[{"0", ",", "1"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.56096043565625*^9, 3.560960474484375*^9}, {
  3.56096143303125*^9, 3.56096143303125*^9}}],

Cell[BoxData["0.5000000000000001`"], "Output",
 CellChangeTimes->{{3.560960456890625*^9, 3.56096047509375*^9}, 
   3.56112918525*^9, 3.561129739375*^9, 3.56172820259375*^9, 
   3.561789764859375*^9, 3.561982526453125*^9, 3.562046287859375*^9, 
   3.562068443703125*^9, 3.56235153875*^9, 3.562354627375*^9, 
   3.562465824346756*^9, 3.5629616394375*^9, 3.5630866228125*^9, 
   3.563727906296875*^9, 3.5638212255*^9, 3.5638388058125*^9, 
   3.563945764421875*^9, 3.56398533759375*^9, 3.5640218144375*^9, 
   3.5646766701875*^9, 3.56492531875*^9, 3.564929146140625*^9, 
   3.565001669234375*^9, 3.5650759095*^9, 3.56534987809375*^9, 
   3.565454634796875*^9, 3.565533445375*^9, 3.5663075310625*^9, 
   3.566580528625*^9, 3.566621655640625*^9, 3.56674337934375*^9, 
   3.56706610525*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Integrate", "[", 
     RowBox[{
      RowBox[{"2", " ", "Pi", " ", "r", " ", 
       RowBox[{"r", "^", "2"}], " ", 
       RowBox[{"Moff35h", "[", 
        RowBox[{"r", ",", "1"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", "0", ",", "Ref"}], "}"}]}], "]"}], "\[Equal]", 
    "0.5"}], ",", 
   RowBox[{"{", 
    RowBox[{"Ref", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.560960479421875*^9, 3.560960559625*^9}, 
   3.5609614330625*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"Ref", "\[Rule]", "1.4458473030317134`"}], "}"}]], "Output",
 CellChangeTimes->{{3.5609605296875*^9, 3.56096056790625*^9}, 
   3.561129192875*^9, 3.5611297470625*^9, 3.561728209390625*^9, 
   3.561789770921875*^9, 3.5619825329375*^9, 3.5620462959375*^9, 
   3.562068450265625*^9, 3.562351545203125*^9, 3.562354633484375*^9, 
   3.562465830768631*^9, 3.562961645890625*^9, 3.563086629265625*^9, 
   3.563727912984375*^9, 3.563821231640625*^9, 3.563838811921875*^9, 
   3.563945770578125*^9, 3.563985344265625*^9, 3.564021821171875*^9, 
   3.564676678609375*^9, 3.564925327046875*^9, 3.56492915384375*^9, 
   3.565001677640625*^9, 3.56507591575*^9, 3.5653498865*^9, 
   3.565454641515625*^9, 3.565533453375*^9, 3.566307538515625*^9, 
   3.566580536375*^9, 3.566621662984375*^9, 3.56674338746875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MM2", " ", "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"2", " ", "Pi", " ", "r", " ", 
     RowBox[{"r", "^", "2"}], " ", 
     RowBox[{"Moff35h", "[", 
      RowBox[{"r", ",", "1"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.560667159015625*^9, 3.56066715971875*^9}, {
   3.560669059453125*^9, 3.560669066796875*^9}, 3.560961433078125*^9}],

Cell[BoxData["3.0439502463360273`"], "Output",
 CellChangeTimes->{3.5606671615625*^9, 3.5606690679375*^9, 
  3.56069003434375*^9, 3.560754319140625*^9, 3.5607573388125*^9, 
  3.5607579699375*^9, 3.56076265559375*^9, 3.560764019078125*^9, 
  3.56076497090625*^9, 3.560788226265625*^9, 3.56112919334375*^9, 
  3.56112974759375*^9, 3.561728209640625*^9, 3.5617897710625*^9, 
  3.56198253315625*^9, 3.562046296203125*^9, 3.562068450484375*^9, 
  3.56235154540625*^9, 3.562354633609375*^9, 3.562465830987381*^9, 
  3.562961646140625*^9, 3.56308662953125*^9, 3.5637279133125*^9, 
  3.563821231828125*^9, 3.5638388120625*^9, 3.56394577078125*^9, 
  3.56398534446875*^9, 3.56402182140625*^9, 3.56467667925*^9, 
  3.564925327640625*^9, 3.56492915440625*^9, 3.565001678359375*^9, 
  3.56507591590625*^9, 3.565349886953125*^9, 3.56545464175*^9, 
  3.565533453859375*^9, 3.566307538796875*^9, 3.566580536625*^9, 
  3.566621663359375*^9, 3.566743388015625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"So", " ", "the", " ", "2", "nd", " ", "moment", " ", "of", " ", 
   RowBox[{"Moff35", "[", 
    RowBox[{"r", ",", "Rhwhm"}], "]"}], " ", "is", " ", "3.044", " ", 
   RowBox[{"Rhwhm", "^", "2"}]}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.560667178203125*^9, 3.5606672613125*^9}, {
  3.565000251609375*^9, 3.565000261890625*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"Now", " ", "exponential", " ", "profile"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.565000271671875*^9, 3.565000288546875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ae", "=", 
  RowBox[{"r", "/.", 
   RowBox[{"FindRoot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", "r"}], ")"}], " ", 
       RowBox[{"Exp", "[", 
        RowBox[{"-", "r"}], "]"}]}], "\[Equal]", "0.5"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "1"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.560180880265625*^9, 3.56018119790625*^9}, {
   3.560231778453125*^9, 3.560231825546875*^9}, {3.560232070296875*^9, 
   3.5602320735*^9}, 3.560232110734375*^9, {3.56066790703125*^9, 
   3.5606679159375*^9}, {3.567066166328125*^9, 3.567066188390625*^9}}],

Cell[BoxData["1.6783469900166608`"], "Output",
 CellChangeTimes->{
  3.56018109834375*^9, {3.560181137546875*^9, 3.56018116259375*^9}, 
   3.560181199140625*^9, 3.560231827796875*^9, 3.560232074609375*^9, 
   3.560232113265625*^9, 3.5606034055625*^9, 3.56066790934375*^9, 
   3.560690034796875*^9, 3.560754319390625*^9, 3.56075733934375*^9, 
   3.560757970203125*^9, 3.560762655875*^9, 3.56076401934375*^9, 
   3.560764971171875*^9, 3.560788226578125*^9, 3.561129193765625*^9, 
   3.5611297480625*^9, 3.561728209859375*^9, 3.56178977128125*^9, 
   3.56198253334375*^9, 3.562046296421875*^9, 3.5620684506875*^9, 
   3.562351545578125*^9, 3.562354633734375*^9, 3.562465831159256*^9, 
   3.562961646375*^9, 3.563086629734375*^9, 3.5637279136875*^9, 
   3.5638212320625*^9, 3.5638388121875*^9, 3.563945770953125*^9, 
   3.563985344640625*^9, 3.564021821578125*^9, 3.564676679796875*^9, 
   3.56492532828125*^9, 3.56492915484375*^9, 3.565001678484375*^9, 
   3.565075915953125*^9, 3.565349887109375*^9, 3.565454641796875*^9, 
   3.5655334539375*^9, 3.566307538859375*^9, 3.566580536671875*^9, 
   3.566621663453125*^9, 3.566743388109375*^9, 3.5670661921875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"ae", "^", "2"}], "r", "  ", 
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", "ae"}], " ", "r"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5601812176875*^9, 3.560181220609375*^9}, {
  3.560231879578125*^9, 3.560231902921875*^9}, {3.5602319750625*^9, 
  3.560232023609375*^9}, {3.560232079640625*^9, 3.560232087796875*^9}}],

Cell[BoxData["0.5`"], "Output",
 CellChangeTimes->{
  3.56018122228125*^9, {3.560231899203125*^9, 3.560231904421875*^9}, 
   3.560231980984375*^9, 3.560232026140625*^9, 3.560232092140625*^9, 
   3.56023212765625*^9, 3.560603405765625*^9, 3.560690036453125*^9, 
   3.560754319484375*^9, 3.560757339515625*^9, 3.560757970359375*^9, 
   3.56076265603125*^9, 3.5607640195*^9, 3.5607649713125*^9, 
   3.560788226734375*^9, 3.56112919409375*^9, 3.561129748265625*^9, 
   3.561728209953125*^9, 3.561789771359375*^9, 3.561982533453125*^9, 
   3.56204629653125*^9, 3.56206845078125*^9, 3.56235154565625*^9, 
   3.5623546338125*^9, 3.562465831221756*^9, 3.562961646484375*^9, 
   3.563086629828125*^9, 3.5637279139375*^9, 3.563821232171875*^9, 
   3.56383881228125*^9, 3.563945771*^9, 3.563985344703125*^9, 
   3.56402182165625*^9, 3.5646766800625*^9, 3.564925328625*^9, 
   3.5649291550625*^9, 3.56500167890625*^9, 3.56507591615625*^9, 
   3.5653498875625*^9, 3.565454641921875*^9, 3.565533454125*^9, 
   3.566307539015625*^9, 3.566580536796875*^9, 3.566621663640625*^9, 
   3.5667433883125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"EProf", "[", 
   RowBox[{"r_", ",", "Re50_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"2", "Pi"}], ")"}]}], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ae", "/", "Re50"}], ")"}], "^", "2"}], 
   RowBox[{"Exp", "[", 
    RowBox[{
     RowBox[{"-", "ae"}], " ", 
     RowBox[{"r", "/", " ", "Re50"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.560181228125*^9, 3.5601813265625*^9}, {
  3.56018145240625*^9, 3.560181454078125*^9}, {3.560184082109375*^9, 
  3.56018414534375*^9}, {3.560232048640625*^9, 3.56023205225*^9}, {
  3.56023213425*^9, 3.560232194234375*^9}, {3.560232526046875*^9, 
  3.56023252765625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"2", " ", "Pi", " ", "r", " ", 
    RowBox[{"EProf", "[", 
     RowBox[{"r", ",", "1"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.560961975703125*^9, 3.560961993359375*^9}}],

Cell[BoxData["1.`"], "Output",
 CellChangeTimes->{{3.560961979984375*^9, 3.5609619944375*^9}, 
   3.561129194484375*^9, 3.561129748609375*^9, 3.561728210171875*^9, 
   3.5617897714375*^9, 3.561982533625*^9, 3.56204629675*^9, 3.562068451*^9, 
   3.56235154584375*^9, 3.562354633890625*^9, 3.562465831378006*^9, 
   3.562961646859375*^9, 3.563086630203125*^9, 3.5637279141875*^9, 
   3.5638212323125*^9, 3.563838812359375*^9, 3.563945771328125*^9, 
   3.56398534490625*^9, 3.564021821859375*^9, 3.564676680546875*^9, 
   3.564925329140625*^9, 3.564929155421875*^9, 3.5650016799375*^9, 
   3.56507591625*^9, 3.565349888*^9, 3.5654546421875*^9, 3.565533454484375*^9,
    3.566307539171875*^9, 3.566580537*^9, 3.5666216638125*^9, 
   3.566743388625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Integrate", "[", 
     RowBox[{
      RowBox[{"2", " ", "Pi", " ", "r", "  ", 
       RowBox[{"EProf", "[", 
        RowBox[{"r", ",", "1"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", "0", ",", "Ref"}], "}"}]}], "]"}], "\[Equal]", 
    "0.5"}], ",", 
   RowBox[{"{", 
    RowBox[{"Ref", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.560961880890625*^9, 3.56096195703125*^9}, {
  3.5609620011875*^9, 3.5609620135625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"Ref", "\[Rule]", "1.`"}], "}"}]], "Output",
 CellChangeTimes->{3.56096192496875*^9, 3.560961958078125*^9, 
  3.56096201759375*^9, 3.561129194890625*^9, 3.561129749015625*^9, 
  3.561728210390625*^9, 3.561789771640625*^9, 3.5619825338125*^9, 
  3.562046296953125*^9, 3.562068451171875*^9, 3.562351546015625*^9, 
  3.56235463409375*^9, 3.562465831565506*^9, 3.5629616470625*^9, 
  3.563086630390625*^9, 3.563727914515625*^9, 3.56382123253125*^9, 
  3.563838812546875*^9, 3.5639457715*^9, 3.563985345078125*^9, 
  3.564021822046875*^9, 3.5646766810625*^9, 3.564925329734375*^9, 
  3.564929155859375*^9, 3.56500168059375*^9, 3.56507591646875*^9, 
  3.5653498889375*^9, 3.565454642390625*^9, 3.5655334549375*^9, 
  3.566307539578125*^9, 3.566580537203125*^9, 3.566621664234375*^9, 
  3.566743389125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"EProf", "[", 
      RowBox[{"Rhm", ",", "1"}], "]"}], "/", 
     RowBox[{"EProf", "[", 
      RowBox[{"0", ",", "1"}], "]"}]}], "\[Equal]", ".5"}], ",", 
   RowBox[{"{", 
    RowBox[{"Rhm", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.560961644171875*^9, 3.5609617330625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"Rhm", "\[Rule]", "0.4129939664938205`"}], "}"}]], "Output",
 CellChangeTimes->{3.560961657*^9, 3.560961734046875*^9, 3.5611291949375*^9, 
  3.561129749078125*^9, 3.561728210421875*^9, 3.561789771671875*^9, 
  3.56198253384375*^9, 3.562046296984375*^9, 3.562068451203125*^9, 
  3.56235154603125*^9, 3.562354634109375*^9, 3.562465831581131*^9, 
  3.562961647140625*^9, 3.563086630453125*^9, 3.563727914625*^9, 
  3.563821232609375*^9, 3.563838812578125*^9, 3.563945771515625*^9, 
  3.563985345109375*^9, 3.5640218220625*^9, 3.5646766811875*^9, 
  3.56492532984375*^9, 3.56492915596875*^9, 3.56500168065625*^9, 
  3.5650759165*^9, 3.56534988921875*^9, 3.565454642421875*^9, 
  3.565533454984375*^9, 3.56630753965625*^9, 3.566580537234375*^9, 
  3.566621664375*^9, 3.56674338934375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ME2", "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"2", " ", "Pi", " ", "r", " ", 
     RowBox[{"r", "^", "2"}], " ", 
     RowBox[{"EProf", "[", 
      RowBox[{"r", ",", "1"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.56018130475*^9, 3.560181307078125*^9}, {
  3.56018133909375*^9, 3.560181408671875*^9}, {3.560184247140625*^9, 
  3.5601842504375*^9}, {3.560232532046875*^9, 3.56023253315625*^9}, {
  3.560668220546875*^9, 3.560668231390625*^9}, {3.5606690209375*^9, 
  3.560669025390625*^9}, {3.5606690794375*^9, 3.560669080015625*^9}}],

Cell[BoxData["2.1300399175683555`"], "Output",
 CellChangeTimes->{{3.560181398140625*^9, 3.56018140946875*^9}, 
   3.560181458234375*^9, 3.560184154390625*^9, 3.560184251640625*^9, {
   3.560232186109375*^9, 3.56023219715625*^9}, 3.5602325341875*^9, 
   3.56060340621875*^9, 3.560668232671875*^9, 3.560669026453125*^9, 
   3.560669081109375*^9, 3.560690038375*^9, 3.560754319734375*^9, 
   3.560757340125*^9, 3.560757970515625*^9, 3.560762656203125*^9, 
   3.560764019671875*^9, 3.560764971484375*^9, 3.560788226953125*^9, 
   3.561129195234375*^9, 3.561129749375*^9, 3.561728210625*^9, 
   3.561789771734375*^9, 3.56198253396875*^9, 3.562046297125*^9, 
   3.56206845153125*^9, 3.562351546171875*^9, 3.5623546341875*^9, 
   3.562465831706131*^9, 3.56296164728125*^9, 3.563086630609375*^9, 
   3.56372791484375*^9, 3.563821232703125*^9, 3.563838812640625*^9, 
   3.563945771640625*^9, 3.56398534521875*^9, 3.5640218221875*^9, 
   3.564676681484375*^9, 3.5649253301875*^9, 3.56492915625*^9, 
   3.565001680984375*^9, 3.56507591659375*^9, 3.56534988953125*^9, 
   3.565454642578125*^9, 3.56553345528125*^9, 3.5663075398125*^9, 
   3.566580537390625*^9, 3.566621664546875*^9, 3.56674338965625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"So", " ", "the", " ", "2", "nd", " ", "moments", " ", "of", " ", 
   RowBox[{"EProf", "[", 
    RowBox[{"r", ",", "Ref"}], "]"}], " ", "is", " ", "2.13004", 
   RowBox[{"Ref", "^", "2"}]}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.560668269296875*^9, 3.560668334375*^9}, {
  3.564426050015625*^9, 3.564426052984375*^9}, {3.5650003179375*^9, 
  3.565000327171875*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"Now", " ", "de", " ", "Vaucouleurs", " ", 
   RowBox[{
    RowBox[{"r", "^", "1"}], "/", "4"}], " ", "profile"}], "  ", 
  "*)"}]], "Input",
 CellChangeTimes->{{3.565000332734375*^9, 3.565000384140625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"VProft", "[", 
   RowBox[{"r_", ",", "Re50_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "/", "Re50"}], ")"}], "^", "2"}], " ", 
   RowBox[{"Exp", "[", 
    RowBox[{"-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"r", "/", "Re50"}], ")"}], "^", "0.25"}]}], "]"}]}]}]], "Input",\

 CellChangeTimes->{{3.5670664250625*^9, 3.56706642553125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"KV", "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"2", " ", "Pi", " ", "r", " ", 
     RowBox[{"VProft", "[", 
      RowBox[{"r", ",", "Ref"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}], ",", 
    RowBox[{"Assumptions", "\[Rule]", 
     RowBox[{
      RowBox[{"Re", "[", 
       RowBox[{"Ref", "^", "0.25"}], "]"}], ">", "0"}]}]}], "]"}]}]], "Input",\

 CellChangeTimes->{{3.567066456875*^9, 3.5670664631875*^9}}],

Cell[BoxData["126669.01579274047`"], "Output",
 CellChangeTimes->{{3.567066448203125*^9, 3.567066465734375*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"VProft", "[", 
   RowBox[{"r_", ",", "Re50_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "/", "Re50"}], ")"}], "^", "2"}], "/", "KV"}], " ", 
   RowBox[{"Exp", "[", 
    RowBox[{"-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"r", "/", "Re50"}], ")"}], "^", "0.25"}]}], "]"}]}]}]], "Input",\

 CellChangeTimes->{{3.56431384*^9, 3.56431393340625*^9}, {
   3.564314095390625*^9, 3.5643140985625*^9}, {3.5643142185625*^9, 
   3.5643142309375*^9}, {3.56431426465625*^9, 3.56431427884375*^9}, 
   3.564425946921875*^9, {3.564425993296875*^9, 3.564426048984375*^9}, {
   3.564426142171875*^9, 3.564426142953125*^9}, {3.564426194390625*^9, 
   3.564426196046875*^9}, 3.564426260875*^9, {3.56442645490625*^9, 
   3.56442647984375*^9}, {3.56442657540625*^9, 3.564426586875*^9}, 
   3.565000410625*^9, 3.565001035703125*^9, {3.56706647525*^9, 
   3.567066479921875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"2", " ", "Pi", " ", "r", " ", 
    RowBox[{"VProft", "[", 
     RowBox[{"r", ",", "Ref"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}], ",", 
   RowBox[{"Assumptions", "\[Rule]", 
    RowBox[{
     RowBox[{"Re", "[", 
      RowBox[{"Ref", "^", "0.25"}], "]"}], ">", "0"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.56431415375*^9, 3.5643141994375*^9}, {
   3.56442617784375*^9, 3.56442618259375*^9}, {3.5644262944375*^9, 
   3.564426295234375*^9}, 3.564426441265625*^9, 3.564426505515625*^9, 
   3.565000410671875*^9, 3.5650010379375*^9}],

Cell[BoxData["0.9999999999999994`"], "Output",
 CellChangeTimes->{
  3.56431393909375*^9, 3.564314102171875*^9, 3.564314156859375*^9, 
   3.564314205453125*^9, 3.56442606796875*^9, 3.564426148703125*^9, {
   3.564426188140625*^9, 3.564426206796875*^9}, 3.564426268171875*^9, 
   3.564426299765625*^9, {3.564426466984375*^9, 3.564426508578125*^9}, 
   3.56442659428125*^9, 3.56467669065625*^9, 3.5649253395625*^9, 
   3.564929164984375*^9, 3.5650016905*^9, 3.565075921109375*^9, 
   3.565349900671875*^9, 3.565454645953125*^9, 3.565533462578125*^9, 
   3.5663075474375*^9, 3.56658054078125*^9, 3.566621671859375*^9, 
   3.566743397859375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reft", "=", 
  RowBox[{"Ref", "/.", 
   RowBox[{"FindRoot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Integrate", "[", 
       RowBox[{
        RowBox[{"2", " ", "Pi", " ", "r", "  ", 
         RowBox[{"VProft", "[", 
          RowBox[{"r", ",", "1"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"r", ",", "0", ",", "Ref"}], "}"}]}], "]"}], "\[Equal]", 
      "0.5"}], ",", 
     RowBox[{"{", 
      RowBox[{"Ref", ",", "1"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.564313993609375*^9, 3.564313994203125*^9}, 
   3.565000410703125*^9, 3.565001042625*^9, {3.567066233734375*^9, 
   3.56706625503125*^9}}],

Cell[BoxData["3459.4850148369196`"], "Output",
 CellChangeTimes->{3.564314009296875*^9, 3.56442631271875*^9, 
  3.5644265153125*^9, 3.56442660059375*^9, 3.56467669721875*^9, 
  3.56492534628125*^9, 3.564929172109375*^9, 3.565001697546875*^9, 
  3.56507592384375*^9, 3.565349908609375*^9, 3.565454650328125*^9, 
  3.565533479109375*^9, 3.566307553015625*^9, 3.566580543390625*^9, 
  3.566621677421875*^9, 3.566743403703125*^9, 3.567066264546875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"VProf", "[", 
   RowBox[{"r_", ",", "Re50_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Reft", "/", "Re50"}], ")"}], "^", "2"}], "/", "KV"}], " ", 
   RowBox[{"Exp", "[", 
    RowBox[{"-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"Reft", " ", 
        RowBox[{"r", "/", "Re50"}]}], ")"}], "^", "0.25"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.56431384*^9, 3.56431393340625*^9}, {
   3.564314095390625*^9, 3.5643140985625*^9}, {3.5643142185625*^9, 
   3.5643142309375*^9}, {3.56431426465625*^9, 3.56431427884375*^9}, 
   3.564425946921875*^9, {3.564425993296875*^9, 3.564426048984375*^9}, {
   3.564426142171875*^9, 3.564426142953125*^9}, {3.564426194390625*^9, 
   3.564426196046875*^9}, 3.564426260875*^9, {3.56442645490625*^9, 
   3.56442647984375*^9}, {3.56442657540625*^9, 3.564426586875*^9}, {
   3.56442662265625*^9, 3.56442662871875*^9}, 3.565000410734375*^9, {
   3.567066279390625*^9, 3.567066291546875*^9}, {3.56706648875*^9, 
   3.567066489171875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"2", " ", "Pi", " ", "r", " ", 
    RowBox[{"VProf", "[", 
     RowBox[{"r", ",", "Ref"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}], ",", 
   RowBox[{"Assumptions", "\[Rule]", 
    RowBox[{
     RowBox[{"Re", "[", 
      RowBox[{"Ref", "^", "0.25"}], "]"}], ">", "0"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.56431415375*^9, 3.5643141994375*^9}, {
   3.56442617784375*^9, 3.56442618259375*^9}, {3.5644262944375*^9, 
   3.564426295234375*^9}, 3.564426441265625*^9, 3.564426505515625*^9, 
   3.565000410953125*^9}],

Cell[BoxData["0.9999999999999998`"], "Output",
 CellChangeTimes->{3.5644266554375*^9, 3.564676705828125*^9, 
  3.5649253549375*^9, 3.564929180421875*^9, 3.565001706703125*^9, 
  3.565075927484375*^9, 3.565349924203125*^9, 3.56545465778125*^9, 
  3.5655334868125*^9, 3.566307560703125*^9, 3.566580547921875*^9, 
  3.566621684671875*^9, 3.566743411359375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Integrate", "[", 
     RowBox[{
      RowBox[{"2", " ", "Pi", " ", "r", "  ", 
       RowBox[{"VProf", "[", 
        RowBox[{"r", ",", "1.2345"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", "0", ",", "Ref"}], "}"}]}], "]"}], "\[Equal]", 
    "0.5"}], ",", 
   RowBox[{"{", 
    RowBox[{"Ref", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.564313993609375*^9, 3.564313994203125*^9}, {
   3.56442667259375*^9, 3.56442667421875*^9}, 3.565000411046875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"Ref", "\[Rule]", "1.2344999999999995`"}], "}"}]], "Output",
 CellChangeTimes->{{3.56442666975*^9, 3.564426677375*^9}, 
   3.564676712109375*^9, 3.5649253616875*^9, 3.56492918746875*^9, 
   3.565001713875*^9, 3.56507593015625*^9, 3.5653499329375*^9, 
   3.565454663328125*^9, 3.5655334971875*^9, 3.566307566328125*^9, 
   3.566580550484375*^9, 3.566621690125*^9, 3.56674341734375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MV2", "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"2", " ", "Pi", " ", "r", " ", 
     RowBox[{"r", "^", "2"}], " ", 
     RowBox[{"VProf", "[", 
      RowBox[{"r", ",", "1"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.56018130475*^9, 3.560181307078125*^9}, {
   3.56018133909375*^9, 3.560181408671875*^9}, {3.560184247140625*^9, 
   3.5601842504375*^9}, {3.560232532046875*^9, 3.56023253315625*^9}, {
   3.560668220546875*^9, 3.560668231390625*^9}, {3.5606690209375*^9, 
   3.560669025390625*^9}, {3.5606690794375*^9, 3.560669080015625*^9}, {
   3.564426362953125*^9, 3.564426368859375*^9}, 3.565000411125*^9, {
   3.565001241640625*^9, 3.565001242390625*^9}}],

Cell[BoxData["21.679345524086546`"], "Output",
 CellChangeTimes->{{3.560181398140625*^9, 3.56018140946875*^9}, 
   3.560181458234375*^9, 3.560184154390625*^9, 3.560184251640625*^9, {
   3.560232186109375*^9, 3.56023219715625*^9}, 3.5602325341875*^9, 
   3.56060340621875*^9, 3.560668232671875*^9, 3.560669026453125*^9, 
   3.560669081109375*^9, 3.560690038375*^9, 3.560754319734375*^9, 
   3.560757340125*^9, 3.560757970515625*^9, 3.560762656203125*^9, 
   3.560764019671875*^9, 3.560764971484375*^9, 3.560788226953125*^9, 
   3.561129195234375*^9, 3.561129749375*^9, 3.561728210625*^9, 
   3.561789771734375*^9, 3.56198253396875*^9, 3.562046297125*^9, 
   3.56206845153125*^9, 3.562351546171875*^9, 3.5623546341875*^9, 
   3.562465831706131*^9, 3.56296164728125*^9, 3.563086630609375*^9, 
   3.56372791484375*^9, 3.563821232703125*^9, 3.563838812640625*^9, 
   3.563945771640625*^9, 3.56398534521875*^9, 3.5640218221875*^9, 
   3.56442637140625*^9, 3.564426693234375*^9, 3.56467671328125*^9, 
   3.56492536284375*^9, 3.564929188390625*^9, 3.56500171540625*^9, 
   3.56507593034375*^9, 3.5653499335*^9, 3.565454664171875*^9, 
   3.565533498046875*^9, 3.566307566578125*^9, 3.56658055090625*^9, 
   3.566621690453125*^9, 3.566743418328125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"VProf", "[", 
      RowBox[{"r", ",", "1"}], "]"}], ",", 
     RowBox[{"EProf", "[", 
      RowBox[{"r", ",", "1"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5646767331875*^9, 3.564676792609375*^9}, {
   3.56467689753125*^9, 3.564676950890625*^9}, {3.564677352234375*^9, 
   3.564677352671875*^9}, {3.5646774365*^9, 3.5646774529375*^9}, {
   3.564677484765625*^9, 3.564677498390625*^9}, 3.56500041125*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwd1Qsw1HsbB/DVjW5uybWbUIncEiF9taUQneN2jlIKUXKkpKISYqtT6EIh
lArp1OIoRcJi2dzXZXdZdpdtc1viLeRSvP/3/c0885vPzDPzPPPMPPOoewU6
+cwjkUgviPjfb+TjEb/8dRlI/3+j2PmS491ZUgaJOMP7Z8QjKHr5sOC9Hg2x
dmetDbaPYNh56OP+RhrS/J0+pYmGYbyYY7lTSIPKeN6n9uJhXCotLzWYoKFr
o8zmwPhhSGon0lauKcd2jn/oy93DUJ/dRRcElGPU291iW/YQXLMT684tr0DP
qG5SWYQYqUeu2fuqV4DNso82OCKGUD6gwW1bBcYuP7kyZCZGYBi5yfJIBc4f
iJEijw3ib6fhFklqBep7puP2/zWIkp9kbop9JZQ5SWoafgPQcvzaX3mbDhW7
XKvWu31QDd9nfuIpHfXf1Ktbg/ogS02/veQ9HYFJvTw51z5MSznrOQrp+IHM
id2qfWDS3p/jb69Chsiz/K8XvbhkEDk7+aUK9+W3PrCq/4JGGQUFPSsG6unU
2C8WIlRaBvg0uzJgwWm76qcpQqF/9btgfwauJ0+KlJeL8JwRcrD4IQNbNBbZ
TfI/IySc99hmmIEdbsrHqNGfsX4kS9v70Sd8ce3IS+AIcbHRDEljNRiSG3co
TuqBtF7BlxqpWnzK8BLr3OhBRqxBzMyqWlSltW8tPN+DZvuNHR7WtdibQ2eu
d+6BTp3COa2HtVDmelPNZHogYIxk5ZvWYXEENdciphv7yjOlGy7VQ+fV+MgO
AwH469QLZuPqselAqe3WFQIER6S6Gzyvx5Gc36ecJ/h4ivjs+Lp60CxsSStK
+JgpiSAfWtUA8/7Mv67a85H7wf1CX0kDlvuJKZVBPCi9leNLSDTBc7zy/AS3
E4djZlxEik2IUF8em0jrxLPjX+qqdZugE6995mhWJ3RXFhXddmvCbuFbd6+g
TpAvHHuwMq8JB0iLdusu64RJ6p9ZCfpMGO57Qovby4WnR9aRbD4TKsuaTLLb
2hFtp5acPMCErMTe+Yml7cgyudt2a4yJe0czZDOy2zEkfWl/wJJm1EzUSCqH
teNCmYOZkUkzHpBCzT03tiNm3bjCx9hmmLfqL7SN5OCdcHd9044WCD94flhi
ywbbJvI/sftaQFcOqso3YWMip1TR3qkFlg8nvp/VZMP0spnnpxMtyOLwVLaR
2ChcoT9Bu9+CdZejjGoLWSjao7ouv78Fe2y2SkjrsfAxa/RcQkIrLHv/MCBt
akPXMr1kpyetuPtKIm+Pcht+BvmXyv7TCs/9CqIUqTZYolcqtqwVVS71XyMH
WlHK6UyjDLbC9pEGWft1K8qkGIwLVm04NLrbrs64FRWn0tQODrVB1sjRLJXo
882Av7/HRBvyDN+QBq1bkHHSvNibxILpzLSatVkLKL6cQ6cVWDhK3i+hsa4F
Nl5yj6J2sBDVoRF8+Wszmg5SlHNiWLDWGmDFEXPqsglYOX8LG7sXvlCramOi
gWHhI2XKRihbK/FRDROle5cULN/FhlLAO8vLpUw82fPCRdmVjQ3ONY1Hspnw
suqJ3xLGBs+z7GDWFSb6TV3l3RrYSB1XN9y+kYnxDZYy1AAOTN8l90xJNmGn
kMy4FcJBa0KHady3RlxPswk/GcVBb3VY6XZeIxQVXEY0kjmoPLVT0JTfCBMJ
/6ZHdA54iuuXzj/aiJDOpDs31drBspHP8ipuwM87YzLHa9px8uz2kJ1R9Zg3
9UpWTYuLAwl1VjTbWqg1kL9Dn4sTNlMMTfNaGD/tYB034yLCLUwpcXMtfGwl
U3IcuFhD2t+QsZTYy2QvLfIFLoIF3BqvxhrcMVcx92Nw8XFISdL9jxqsunLd
+71fJ/hrIs40B36Cydyxd845XfCa5mrRq6ph70C7Zl3YBT6e6PkWVcM7Ze1v
phVdkF4tVJenVuOuKb9Pld2FYPOG1BsJ1RgIdFcR/uqCsTW/qM+7GqndrlfO
OPCwzGs44NyCakhU2JFjh3hIT2uKDrKvQn20cWP1ZgGcbprIS01Uwlymbt69
bQLUG7qunRmsRHayp6m7lQDjosNaPwSViMqJSx9xFeB5IWtscS2R394fpBwp
AF2gdy/5MZGvk6Z0iiOAwp2Lfm62lSAPXMtbRO5GLjX3lkJmBdbeFU+9/NqN
3+0OL6eeK0epZ/jL/O/diJ8NlDP2L4fH1hUHiye7wWKQFMq9ypHKNi+sn9cD
an7dryHHciivvnVhRLEHD7x6q24blEP+n03fjdGDWW8Hh+6vNCyk+wyV3enB
pgU578sCaRD/EPBZBkIwtT3KwueVIWOwuFY67jPE/NOLvC8UE3N8MSISieB0
VaumilKIGL8C33TNXnSpM9wFOu8wYfVKdDK8Dz82lZxXn3yDYCP6W8XKfpzJ
OO1uqJ8PQQ79drP6IBZues2quJqHmVNtKdqXxEjf8OtqhWIOdHZJzvoWDyEw
c1h6Zf4r7HumfuJfpa8oKY+xdzj+EhdXH13fc3gEztrPbnwMfQHdIdelHIdR
MP8tHLhYk4kVMqNS9OlRRDu6cXgaGVhQlpKrkfof7HwXGGZZ/gz+xsUdi/d/
w2a9IhLX5yle2Xqll058w3rZE25PDdMxLlaV7X34HadyOnaM//kYBc775ifs
GUMUtmr96ZSKcBvKk7e9Y/B/Evc3O+kR1Hl27c8p4xCrWSaIlyTD3DQ6QcVo
At2ff7+18WoiDq9pmpJoncAp1XVXIrQfYrw2Vngm8gemImY6NVkJSFrgEeyk
OQkfuTjz9tx4rOAXPJtHn8Quo2yGYuZ9LAyLdDE7O4WBSGsKN+keSC89coXy
05jMul5wI+8ugh7lxspXTBN3/fhai9g7KNG5KSV3egar1/sFM4WxkLML0r0m
/RMGjlxpTmAMurYwW0M//sTtAb1Rp8lbyHsMTZHHL0yFTssz8v7GkVwTudWz
v5DfyXOJjrqJCMrTyK5/ZvFWI+WZuuMNUPtXp0jbz8F3SX/R2J7rcJST3s6Y
nsPn6Y5jK40puLVwnloX4Q9jXxvHt1JAnxr/NUr4qi/Zkk3YRMirVJ2Zg2Fu
hmoiYdU31N9OE75M/6NdmbDQxeHEyp9zUD1/5ugqIwqCk2Ieev+aw8ms86ka
BhRQYyJCQwifCHCTX0C4NyL4cCzh3KTQmyJ9Ctz8Dq9/T7hS5eL5TMKW5ro5
S2bnwH7r4bSR8KKuuqp/CZdUCZR09CgAsyy7mvC5m9n3lhIOob+53Uk4PzN3
6dAWCgZfpzgunCPqD4eQqIQbw/x5boS90n8M6RGWDDpKCyDsuOHNSRnCVr7O
z68R7pegikZ0Kcg/YOH3mnDqe3deHmExWd++nHDoXdlD9whrmmroswk/+Dif
c5awh46SvJjwHottLk6EE9cuHZ8j/G1pZrMR4f8C4HQ7gQ==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVzH0w1HkAx3FPlcsNIbHrVApNUc5DpHKfSiU9DmVaBhVRIZduO9Vcebgk
sdde9kotZy1z2VjyPEa1ylIh2mwUP1zb3tqQVrHFYu/bH595z+ufj234zwGR
ejo6OnvJvnVnpFLS8D7ypx8G8/tdyykY+NBPDdC2YlmwlVGhgIJbXnZOJe0A
HOo811ryKex63l2RSzuKhaGMJP0sCgePfnlwncaEt/z8u89MCn3OaT4s2iVs
qk097uZFgWex7/JVGgfFKf+1r2zsRbJh5Yp0WiE6JaK0bqoHjKD8MtVYFQLe
u9mI9d7ASJsc4rtYBBOBdENRZDfs/UeVjRliPIyV3UkfeoWEdi9kjz9DUf+i
m2HRUlhWmfbr6nZggpu6nGvdiRqZT1vHxpdwupoWoXkqwePoXOugESkUoxEf
GFkvMOHgbSI82Y27va23TY06oDdZvMDavgc+81128JRt8NAertlfSiH5lJpi
ft+Ktkvu7c2rBpCpijI5fvAZlrCHJwWj/8Jqi0dlUM4TDH8Z6H/1owxdFuv6
ttGbUThU32L8xztIFAUvOVliGNvc+SiXy7Hk7vnNfmsakXmiOopnp8CZDhpn
TP0I6k3F8uOJg4gJdwlNr28A01VctahRiXiPp8oj/iIMlIozJLZDoLEW5V20
fwBNtJS78vwwCurU17xX1sNx87zZqPoROKtkVFBcHXz5tsfKLUfxnEMlaIS1
SLA5tOxtyEe48+s2bl9RA6eRQKPuPSpkavxayxuqYG6iMhRPqRC/OnzWN7AS
BiJu2fKcMRz5PZh926oCMe71b77b9QmBmb9s9Xp9D8V+4byH6k8YZNNFKVFl
mBimL1Dc+IwPllmxo8eEqN7vq8/ZOg73X1sGJOHFSNyRmlelGEeAwv3mWp4A
tn07XxekTkA1aD6drVeE9Z6XODRXNexWrZ6/8dA/CFncManbqcZ92VTp87FC
TLSwZKeSv2CNZ4/vp8QCZBuEMQPsvoIK1DDuePNh3l/N1xN/Rad8A95Z5GPO
heQDXvGTaOLVS2KledARhJXJzKbA6SgYd2jJxenbZSyzx1NYny2KUdZx8cDx
iqFpnAZp03FzB7tuwXTnaacU42k8MXJ6q++aDWr1i85z96dRUJJ4uCftBu79
DTt52Ax61bwPFxf+hdAyD1Ob2Rkk2g8mFImykJSan0zdnUXFLeNKx6jrECpt
uMa7tXDwa3Gz8foT/qbG655MaREcz9h8wZCNq3P0rCniDF7P0mBi8eTEjIp4
b5NAx5PYQ9bXSNdooRpZ80g1jw16pXBfHPFivnTbUWLZgT3HLKa1KFrACt01
lw1mduaNiBktKsKFzTQDNoSZSefOEtfMtJWp9dlQJDFDWMQ453Wrk5hxImRZ
LbGryWQsi9h7vVPp/FkttheaWekSz6Vam8qJRQOlvyl12cALUVEz8ZRbTnQT
8VlxZUYvsVtYF4NPPFTC9Z+j1ULt4uIRQtx+IaaPQRwhThrv0GFj3ulDDSeJ
aTVSeQnxpqj9BSnEV86eeZVOXLF3w4kS4tHY3Fof4uEtzrsfEXNz7QRLie08
lzt3EdetG1ur0V5DmKOl2fC3P4krvZr45hKjCS2xub6xNo74fyzOe68=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 2}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{
  3.564676793640625*^9, {3.5646769169375*^9, 3.56467692515625*^9}, 
   3.564677353453125*^9, {3.5646774383125*^9, 3.564677454875*^9}, {
   3.56467748934375*^9, 3.564677499125*^9}, 3.564925366109375*^9, 
   3.5649291895*^9, 3.5650017173125*^9, 3.56507593040625*^9, 
   3.565349934203125*^9, 3.565454665296875*^9, 3.565533498671875*^9, 
   3.56630756665625*^9, 3.566621690765625*^9, 3.566743418453125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"2", " ", "Pi", " ", "r", " ", 
    RowBox[{"VProf", "[", 
     RowBox[{"r", ",", "1.2345"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "1.2345"}], "}"}], ",", 
   RowBox[{"Assumptions", "\[Rule]", 
    RowBox[{
     RowBox[{"Re", "[", 
      RowBox[{"Ref", "^", "0.25"}], "]"}], ">", "0"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.56467739071875*^9, 3.564677408484375*^9}, 
   3.565000411265625*^9}],

Cell[BoxData["0.5000000000000006`"], "Output",
 CellChangeTimes->{{3.564677394921875*^9, 3.564677409984375*^9}, 
   3.564925367359375*^9, 3.564929190125*^9, 3.565001718546875*^9, 
   3.565075930671875*^9, 3.565349936125*^9, 3.565454666171875*^9, 
   3.56553349934375*^9, 3.566307567171875*^9, 3.566580551375*^9, 
   3.5666216913125*^9, 3.566743419046875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"2", " ", "Pi", " ", "r", " ", 
    RowBox[{"EProf", "[", 
     RowBox[{"r", ",", "1.2345"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "1.2345"}], "}"}], ",", 
   RowBox[{"Assumptions", "\[Rule]", 
    RowBox[{
     RowBox[{"Re", "[", 
      RowBox[{"Ref", "^", "0.25"}], "]"}], ">", "0"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.56467739071875*^9, 3.564677423890625*^9}}],

Cell[BoxData["0.49999999999999917`"], "Output",
 CellChangeTimes->{3.5646774249375*^9, 3.564925367953125*^9, 
  3.56492919046875*^9, 3.565001719234375*^9, 3.5650759308125*^9, 
  3.565349936921875*^9, 3.56545466646875*^9, 3.565533499625*^9, 
  3.5663075674375*^9, 3.566580551515625*^9, 3.56662169165625*^9, 
  3.56674341934375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EProf", "[", 
  RowBox[{"0", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.564677466*^9, 3.56467747353125*^9}}],

Cell[BoxData["0.4483153816391928`"], "Output",
 CellChangeTimes->{3.56467747434375*^9, 3.56492536834375*^9, 
  3.564929190609375*^9, 3.5650017195*^9, 3.565075930859375*^9, 
  3.565349937375*^9, 3.565454666578125*^9, 3.565533499671875*^9, 
  3.566307567484375*^9, 3.566580551546875*^9, 3.566621691734375*^9, 
  3.5667434194375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"VProf", "[", 
  RowBox[{"0", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.564677511359375*^9, 3.564677511953125*^9}, 
   3.5650004113125*^9}],

Cell[BoxData["94.48274696839555`"], "Output",
 CellChangeTimes->{3.564677512671875*^9, 3.564925368640625*^9, 
  3.56492919065625*^9, 3.5650017196875*^9, 3.565075930890625*^9, 
  3.565349937515625*^9, 3.565454666625*^9, 3.56553349971875*^9, 
  3.566307567515625*^9, 3.56658055159375*^9, 3.566621691796875*^9, 
  3.5667434195*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"Now", " ", "Gaussian", " ", "profile"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.565001124953125*^9, 3.56500113534375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GProf", "[", 
   RowBox[{"r_", ",", "Rrms_"}], "]"}], ":=", 
  RowBox[{"1", "/", 
   RowBox[{"(", 
    RowBox[{"Pi", " ", 
     RowBox[{"Rrms", "^", "2"}], "  ", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"r", "/", "Rrms"}], ")"}], "^", "2"}], "]"}]}], 
    ")"}]}]}]], "Input",
 CellChangeTimes->{{3.560232355296875*^9, 3.560232380609375*^9}, {
  3.560232429859375*^9, 3.560232520875*^9}, {3.560668360859375*^9, 
  3.5606683936875*^9}, {3.56066845659375*^9, 3.56066850440625*^9}, {
  3.560668542609375*^9, 3.5606685705*^9}, {3.560668897640625*^9, 
  3.560668904921875*^9}, {3.560668989078125*^9, 3.560668996015625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"2", " ", "Pi", " ", "r", " ", 
    RowBox[{"GProf", "[", 
     RowBox[{"r", ",", "1.2345"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.560232552671875*^9, 3.560232553921875*^9}}],

Cell[BoxData["1.`"], "Output",
 CellChangeTimes->{3.5602325554375*^9, 3.560603406703125*^9, 
  3.5606685779375*^9, 3.560668908890625*^9, 3.560669001734375*^9, 
  3.56069003884375*^9, 3.56075432*^9, 3.560757341140625*^9, 
  3.56075797090625*^9, 3.560762656609375*^9, 3.56076402009375*^9, 
  3.56076497190625*^9, 3.560788227328125*^9, 3.561129195875*^9, 
  3.561129750046875*^9, 3.5617282109375*^9, 3.561789771984375*^9, 
  3.56198253425*^9, 3.562046297390625*^9, 3.56206845184375*^9, 
  3.5623515464375*^9, 3.562354634359375*^9, 3.562465831971756*^9, 
  3.562961647609375*^9, 3.56308663090625*^9, 3.563727915328125*^9, 
  3.563821232921875*^9, 3.563838812796875*^9, 3.563945771890625*^9, 
  3.563985345484375*^9, 3.5640218225*^9, 3.56467671484375*^9, 
  3.564925369078125*^9, 3.564929191*^9, 3.565001720359375*^9, 
  3.565075930984375*^9, 3.565349937953125*^9, 3.5654546669375*^9, 
  3.56553350009375*^9, 3.566307567671875*^9, 3.56658055175*^9, 3.566621692*^9,
   3.56674341990625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Integrate", "[", 
     RowBox[{
      RowBox[{"2", " ", "Pi", " ", "r", " ", 
       RowBox[{"GProf", "[", 
        RowBox[{"r", ",", "1"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", "0", ",", "Reff"}], "}"}]}], "]"}], "\[Equal]", 
    ".5"}], ",", 
   RowBox[{"{", 
    RowBox[{"Reff", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.560961170203125*^9, 3.56096121359375*^9}, {
  3.56096124603125*^9, 3.560961248578125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"Reff", "\[Rule]", "0.8325546111576978`"}], "}"}]], "Output",
 CellChangeTimes->{{3.560961193546875*^9, 3.560961214796875*^9}, 
   3.56096124984375*^9, 3.56112919625*^9, 3.5611297504375*^9, 
   3.56172821115625*^9, 3.561789772203125*^9, 3.561982534421875*^9, 
   3.562046297546875*^9, 3.562068452015625*^9, 3.56235154659375*^9, 
   3.56235463453125*^9, 3.562465832143631*^9, 3.562961647796875*^9, 
   3.56308663109375*^9, 3.563727915625*^9, 3.56382123325*^9, 
   3.56383881296875*^9, 3.563945772046875*^9, 3.56398534565625*^9, 
   3.56402182265625*^9, 3.564676715265625*^9, 3.564925369671875*^9, 
   3.5649291915*^9, 3.56500172096875*^9, 3.5650759311875*^9, 
   3.5653499390625*^9, 3.565454667328125*^9, 3.565533500484375*^9, 
   3.5663075680625*^9, 3.5665805519375*^9, 3.56662169240625*^9, 
   3.5667434203125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"GProf", "[", 
     RowBox[{"rhwhm", ",", "1"}], "]"}], "==", 
    RowBox[{
     RowBox[{"GProf", "[", 
      RowBox[{"0", ",", "1"}], "]"}], "/", "2"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"rhwhm", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.560961266078125*^9, 3.56096130959375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"rhwhm", "\[Rule]", "0.8325546111576978`"}], "}"}]], "Output",
 CellChangeTimes->{3.56096131059375*^9, 3.561129196328125*^9, 
  3.561129750546875*^9, 3.5617282111875*^9, 3.561789772234375*^9, 
  3.561982534453125*^9, 3.5620462975625*^9, 3.562068452046875*^9, 
  3.562351546609375*^9, 3.562354634578125*^9, 3.562465832159256*^9, 
  3.56296164784375*^9, 3.563086631125*^9, 3.56372791575*^9, 
  3.56382123328125*^9, 3.563838813*^9, 3.5639457720625*^9, 
  3.563985345671875*^9, 3.564021822671875*^9, 3.564676715328125*^9, 
  3.564925369921875*^9, 3.56492919159375*^9, 3.565001721328125*^9, 
  3.56507593125*^9, 3.56534993928125*^9, 3.565454667375*^9, 
  3.56553350053125*^9, 3.56630756809375*^9, 3.566580552*^9, 
  3.566621692515625*^9, 3.566743420375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sqrt", "[", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"2", " ", "Pi", " ", "r", " ", 
     RowBox[{"r", "^", "2"}], 
     RowBox[{"GProf", "[", 
      RowBox[{"r", ",", "1.2345"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}]}], "]"}], "]"}]], "Input",\

 CellChangeTimes->{{3.560232552671875*^9, 3.560232553921875*^9}, {
  3.560668611421875*^9, 3.560668630265625*^9}, {3.56066895478125*^9, 
  3.56066897259375*^9}}],

Cell[BoxData["1.2344999999999997`"], "Output",
 CellChangeTimes->{{3.560668618046875*^9, 3.56066863090625*^9}, 
   3.560668911671875*^9, {3.560668960671875*^9, 3.56066897325*^9}, 
   3.5606690050625*^9, 3.560690039*^9, 3.560754320125*^9, 3.5607573414375*^9, 
   3.560757971078125*^9, 3.56076265678125*^9, 3.560764020265625*^9, 
   3.560764972078125*^9, 3.560788227609375*^9, 3.56112919665625*^9, 
   3.561129750859375*^9, 3.56172821134375*^9, 3.5617897723125*^9, 
   3.561982534578125*^9, 3.5620462976875*^9, 3.5620684521875*^9, 
   3.562351546734375*^9, 3.56235463465625*^9, 3.562465832284256*^9, 
   3.562961648*^9, 3.56308663128125*^9, 3.563727915984375*^9, 
   3.563821233375*^9, 3.563838813078125*^9, 3.5639457721875*^9, 
   3.563985345796875*^9, 3.5640218228125*^9, 3.564676715703125*^9, 
   3.564925370390625*^9, 3.56492919190625*^9, 3.565001721875*^9, 
   3.56507593134375*^9, 3.565349939578125*^9, 3.5654546676875*^9, 
   3.565533500828125*^9, 3.566307568234375*^9, 3.56658055215625*^9, 
   3.566621692703125*^9, 3.566743420703125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MG2", "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"2", " ", "Pi", " ", "r", " ", 
     RowBox[{"r", "^", "2"}], 
     RowBox[{"GProf", "[", 
      RowBox[{"r", ",", "1"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5607592034375*^9, 3.56075921740625*^9}, {
  3.560759274671875*^9, 3.560759281125*^9}}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{{3.5607592061875*^9, 3.56075921878125*^9}, 
   3.560759281921875*^9, 3.56076265696875*^9, 3.5607640204375*^9, 
   3.56076497225*^9, 3.560788227765625*^9, 3.561129197109375*^9, 
   3.561129751328125*^9, 3.561728211609375*^9, 3.56178977240625*^9, 
   3.561982534828125*^9, 3.562046297875*^9, 3.562068452421875*^9, 
   3.5623515469375*^9, 3.56235463475*^9, 3.562465832487381*^9, 
   3.56296164821875*^9, 3.56308663153125*^9, 3.563727916328125*^9, 
   3.56382123346875*^9, 3.56383881315625*^9, 3.563945772390625*^9, 
   3.563985346015625*^9, 3.564021823015625*^9, 3.564676716796875*^9, 
   3.56492537115625*^9, 3.564929192421875*^9, 3.565001722703125*^9, 
   3.565075931421875*^9, 3.565349939890625*^9, 3.565454668234375*^9, 
   3.565533501453125*^9, 3.566307568375*^9, 3.566580552375*^9, 
   3.566621692875*^9, 3.56674342128125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"MMEVG2", "[", 
   RowBox[{"Rhwhm_", ",", "RefE_", ",", "RefV_", ",", "Rrms_"}], "]"}], ":=", 
  " ", 
  RowBox[{
   RowBox[{"MM2", " ", 
    RowBox[{"Rhwhm", "^", "2"}]}], " ", "+", " ", 
   RowBox[{"ME2", " ", 
    RowBox[{"RefE", "^", "2"}]}], " ", "+", 
   RowBox[{"MV2", " ", 
    RowBox[{"RefV", "^", "2"}]}], "+", " ", 
   RowBox[{"MG2", " ", 
    RowBox[{"Rrms", "^", "2"}]}]}]}]], "Input",
 CellChangeTimes->{{3.560669215515625*^9, 3.5606693405*^9}, {
  3.565001182203125*^9, 3.5650012320625*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
  "2", "nd", " ", "moment", " ", "of", " ", "convolved", " ", "profile"}], 
  "  ", "*)"}]], "Input",
 CellChangeTimes->{{3.565001147125*^9, 3.5650011743125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MEVG0", "[", 
   RowBox[{"Rhwhm_", ",", "RefE_", ",", "RefV_", ",", "Rrms_"}], "]"}], ":=", 
  
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"RefE", " ", "RefV"}], "!=", "0"}], ",", 
    RowBox[{"Print", "[", "\"\<Ooops RE OR RV please\>\"", "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"RefE", "\[Equal]", "0"}], "&&", 
       RowBox[{"RefV", "\[Equal]", "0"}]}], ",", 
      RowBox[{"MG0", "[", 
       RowBox[{"Rhwhm", ",", "Rrms"}], "]"}], ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"RefV", "\[Equal]", "0"}], ",", 
        RowBox[{"NIntegrate", "[", 
         RowBox[{
          RowBox[{"2", "Pi", " ", "r", " ", 
           RowBox[{"MoffM2", "[", 
            RowBox[{
             RowBox[{"Sqrt", "[", 
              RowBox[{
               RowBox[{"r", "^", "2"}], "+", 
               RowBox[{"rt", "^", "2"}], "-", 
               RowBox[{"2", " ", "r", " ", "rt", " ", 
                RowBox[{"Cos", "[", "th", "]"}]}]}], "]"}], ",", 
             RowBox[{"1.7446920204827057`", "Rhwhm"}], " ", ",", "3.5"}], 
            "]"}], "2", "  ", "rt", " ", 
           RowBox[{"GProf", "[", 
            RowBox[{"rt", ",", "Rrms"}], "]"}], 
           RowBox[{"EProf", "[", 
            RowBox[{"r", ",", "RefE"}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"th", ",", "0", ",", " ", "Pi"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"rt", ",", "0", ",", 
            RowBox[{"3", "Rrms"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"r", ",", "0", ",", 
            RowBox[{"5", "RefE"}]}], "}"}], ",", 
          RowBox[{"AccuracyGoal", "\[Rule]", "3"}]}], "]"}], ",", 
        RowBox[{"NIntegrate", "[", 
         RowBox[{
          RowBox[{"2", "Pi", " ", "r", " ", 
           RowBox[{"MoffM2", "[", 
            RowBox[{
             RowBox[{"Sqrt", "[", 
              RowBox[{
               RowBox[{"r", "^", "2"}], "+", 
               RowBox[{"rt", "^", "2"}], "-", 
               RowBox[{"2", " ", "r", " ", "rt", " ", 
                RowBox[{"Cos", "[", "th", "]"}]}]}], "]"}], ",", 
             RowBox[{"1.7446920204827057`", "Rhwhm"}], " ", ",", "3.5"}], 
            "]"}], "2", "  ", "rt", " ", 
           RowBox[{"GProf", "[", 
            RowBox[{"rt", ",", "Rrms"}], "]"}], 
           RowBox[{"VProf", "[", 
            RowBox[{"r", ",", "RefV"}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"th", ",", "0", ",", " ", "Pi"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"rt", ",", "0", ",", 
            RowBox[{"3", "Rrms"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"r", ",", "0", ",", 
            RowBox[{"5", "RefV"}]}], "}"}], ",", 
          RowBox[{"AccuracyGoal", "\[Rule]", "3"}]}], "]"}]}], " ", "]"}]}], 
     "  ", "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.560791008984375*^9, 3.560791035484375*^9}, {
   3.56079114159375*^9, 3.56079117765625*^9}, {3.56079121846875*^9, 
   3.56079129578125*^9}, {3.56500136365625*^9, 3.565001379765625*^9}, {
   3.565001438453125*^9, 3.56500144884375*^9}, {3.5650015265*^9, 
   3.56500154034375*^9}, 3.565001573609375*^9, {3.565002050234375*^9, 
   3.5650020604375*^9}, {3.56500209959375*^9, 3.565002168953125*^9}, {
   3.56500220265625*^9, 3.5650022034375*^9}, {3.56500226359375*^9, 
   3.56500226725*^9}, {3.565005448484375*^9, 3.565005481140625*^9}, {
   3.565005523671875*^9, 3.565005572671875*^9}, 3.565007006765625*^9, {
   3.565086608734375*^9, 3.56508665790625*^9}, {3.565086692921875*^9, 
   3.56508669453125*^9}, {3.565086760796875*^9, 3.565086782359375*^9}, {
   3.5650873519375*^9, 3.565087360390625*^9}, 3.56508760121875*^9}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
  "MEVG0", " ", "is", " ", "the", " ", "value", " ", "of", " ", "the", " ", 
   "MEG", " ", "or", " ", "MVG", " ", "convolution", " ", "at", " ", "the", 
   " ", "origin"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.564992274875*^9, 3.564992317578125*^9}, {
  3.5650013308125*^9, 3.565001334671875*^9}, {3.565001581609375*^9, 
  3.5650015875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MEVG0", "[", 
  RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.565086801*^9, 3.565086805390625*^9}}],

Cell[BoxData["\<\"Ooops RE OR RV please\"\>"], "Print",
 CellChangeTimes->{3.565087369234375*^9, 3.565349940625*^9, 3.565454668375*^9,
   3.565533501546875*^9, 3.566307568453125*^9, 3.5665805524375*^9, 
  3.566621693015625*^9, 3.566743421390625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MEVG0", "[", 
  RowBox[{"1", ",", ".5", ",", "0.", ",", ".5"}], "]"}]], "Input",
 CellChangeTimes->{{3.560791309734375*^9, 3.560791313765625*^9}, {
  3.565001341234375*^9, 3.56500134615625*^9}}],

Cell[BoxData["0.11627043648343242`"], "Output",
 CellChangeTimes->{3.5653499406875*^9, 3.565454668703125*^9, 
  3.565533501859375*^9, 3.566307568484375*^9, 3.5665805526875*^9, 
  3.56662169309375*^9, 3.566743421484375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MEVG0", "[", 
  RowBox[{"1", ",", "0", ",", "0.5", ",", ".5"}], "]"}]], "Input",
 CellChangeTimes->{{3.560791309734375*^9, 3.560791313765625*^9}, {
  3.565001341234375*^9, 3.56500134615625*^9}, {3.565002292078125*^9, 
  3.565002294875*^9}}],

Cell[BoxData["0.10129363942516525`"], "Output",
 CellChangeTimes->{3.5650022964375*^9, 3.565075931515625*^9, 3.56534994075*^9,
   3.56545466884375*^9, 3.565533501984375*^9, 3.5663075685625*^9, 
  3.56658055271875*^9, 3.566621693171875*^9, 3.566743421546875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MEVG0", "[", 
  RowBox[{"1", ",", "0", ",", "0", ",", ".5"}], "]"}]], "Input",
 CellChangeTimes->{{3.565005422375*^9, 3.56500542296875*^9}}],

Cell[BoxData["0.14726439640067585`"], "Output",
 CellChangeTimes->{3.565005424234375*^9, 3.565007019953125*^9, 
  3.565075931546875*^9, 3.565349940875*^9, 3.56545466890625*^9, 
  3.56553350203125*^9, 3.56630756859375*^9, 3.566580552765625*^9, 
  3.56662169325*^9, 3.566743421625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"BetaMEVG0", "[", 
   RowBox[{"Rhwhm_", ",", "RefE_", ",", "RefV_", ",", "Rrms_"}], "]"}], ":=", 
  
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", "Pi", " ", 
      RowBox[{"MEVG0", "[", 
       RowBox[{"Rhwhm", ",", "RefE", ",", "RefV", ",", "Rrms"}], "]"}], 
      RowBox[{"MMEVG2", "[", 
       RowBox[{"Rhwhm", ",", "RefE", ",", "RefV", ",", "Rrms"}], "]"}]}], "-",
      "1"}], ")"}], "/", 
   RowBox[{"(", " ", 
    RowBox[{
     RowBox[{"Pi", " ", 
      RowBox[{"MEVG0", "[", 
       RowBox[{"Rhwhm", ",", "RefE", ",", "RefV", ",", "Rrms"}], "]"}], 
      RowBox[{"MMEVG2", "[", 
       RowBox[{"Rhwhm", ",", "RefE", ",", "RefV", ",", "Rrms"}], "]"}]}], "-",
      "1"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.560789870109375*^9, 3.56078991496875*^9}, {
   3.560789992484375*^9, 3.560790024234375*^9}, {3.56079033546875*^9, 
   3.560790345625*^9}, {3.560791838453125*^9, 3.560791869625*^9}, {
   3.560792533875*^9, 3.5607926030625*^9}, {3.5609596133125*^9, 
   3.560959660875*^9}, {3.5609597053125*^9, 3.56095975265625*^9}, {
   3.560959817390625*^9, 3.56095982328125*^9}, {3.560959999984375*^9, 
   3.560960029109375*^9}, {3.564679923390625*^9, 3.564679923921875*^9}, {
   3.564925993828125*^9, 3.564925994984375*^9}, {3.565002381015625*^9, 
   3.5650024711875*^9}, {3.56500259478125*^9, 3.565002651125*^9}, 
   3.565002727921875*^9, 3.565003601125*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BetaMEVG0", "[", 
  RowBox[{".5", ",", "0", ",", "0", ",", ".25"}], "]"}]], "Input",
 CellChangeTimes->{{3.56500538059375*^9, 3.565005398328125*^9}}],

Cell[BoxData["3.9086563831716723`"], "Output",
 CellChangeTimes->{3.56500540159375*^9, 3.5650069326875*^9, 
  3.56507593159375*^9, 3.565349941171875*^9, 3.565454668984375*^9, 
  3.56553350209375*^9, 3.566307568640625*^9, 3.566580552796875*^9, 
  3.566621693375*^9, 3.566743421703125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"MGProf", "[", 
   RowBox[{"r_", ",", "Rhwhm_", ",", "Rrms_"}], "]"}], ":=", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"MoffM2", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"r", "^", "2"}], "+", 
         RowBox[{"rt", "^", "2"}], "-", 
         RowBox[{"2", " ", "r", " ", "rt", " ", 
          RowBox[{"Cos", "[", "th", "]"}]}]}], "]"}], ",", 
       RowBox[{"1.7446920204827057`", "Rhwhm"}], " ", ",", "3.5"}], "]"}], 
     "2", "  ", "rt", " ", 
     RowBox[{"GProf", "[", 
      RowBox[{"rt", ",", "Rrms"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"th", ",", "0", ",", " ", "Pi"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"rt", ",", "0", ",", 
      RowBox[{"3", "Rrms"}]}], "}"}], ",", 
    RowBox[{"AccuracyGoal", "\[Rule]", "4"}]}], "]"}], "  "}]], "Input",
 CellChangeTimes->{
  3.56023260703125*^9, {3.56023299115625*^9, 3.5602330049375*^9}, {
   3.560233058515625*^9, 3.5602332281875*^9}, {3.560233280828125*^9, 
   3.560233281890625*^9}, {3.5602333185625*^9, 3.560233318625*^9}, {
   3.5602333821875*^9, 3.56023338346875*^9}, {3.56023347115625*^9, 
   3.56023351040625*^9}, {3.56023419171875*^9, 3.56023419234375*^9}, {
   3.56023718671875*^9, 3.560237186828125*^9}, {3.560237359234375*^9, 
   3.560237362125*^9}, {3.560238482265625*^9, 3.5602384969375*^9}, {
   3.5606704653125*^9, 3.560670525671875*^9}, 3.560670792265625*^9, {
   3.564926266484375*^9, 3.56492626796875*^9}, {3.56500284515625*^9, 
   3.565002848578125*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"MG0", "[", 
    RowBox[{"Rhwhm_", ",", "Rrms_"}], "]"}], ":=", 
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{"2", " ", "Pi", " ", "r", " ", 
      RowBox[{"MoffM2", "[", 
       RowBox[{"r", ",", 
        RowBox[{"1.7446920204827057`", "Rhwhm"}], " ", ",", "3.5"}], "]"}], 
      " ", 
      RowBox[{"GProf", "[", 
       RowBox[{"r", ",", "Rrms"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "0", ",", 
       RowBox[{"3", "Rrms"}]}], "}"}], ",", 
     RowBox[{"AccuracyGoal", "\[Rule]", "3"}]}], "]"}], "  "}]}]], "Input",
 CellChangeTimes->{{3.56079012565625*^9, 3.560790232390625*^9}, {
  3.560790275875*^9, 3.56079028334375*^9}, {3.56500285646875*^9, 
  3.565002861171875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MG0", "[", 
  RowBox[{"1", ",", ".5"}], "]"}]], "Input",
 CellChangeTimes->{{3.56079024890625*^9, 3.56079029215625*^9}}],

Cell[BoxData["0.14726439640067585`"], "Output",
 CellChangeTimes->{{3.560790251421875*^9, 3.560790292828125*^9}, 
   3.561129758984375*^9, 3.561728221984375*^9, 3.56178978378125*^9, 
   3.561982538875*^9, 3.56204630234375*^9, 3.562068456875*^9, 
   3.5623515504375*^9, 3.5623546434375*^9, 3.562465837846756*^9, 
   3.562961652078125*^9, 3.56308663565625*^9, 3.563727920703125*^9, 
   3.563821242875*^9, 3.563838824015625*^9, 3.56394577578125*^9, 
   3.56398535*^9, 3.56402182721875*^9, 3.56467828515625*^9, 
   3.564925383109375*^9, 3.564929202015625*^9, 3.5650028675625*^9, 
   3.565075931640625*^9, 3.565349942453125*^9, 3.5654546693125*^9, 
   3.565533502171875*^9, 3.5663075686875*^9, 3.56658055284375*^9, 
   3.566621693515625*^9, 3.566743421859375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"2", " ", "Pi", " ", 
     RowBox[{"MG0", "[", 
      RowBox[{"1", ",", ".5"}], "]"}], 
     RowBox[{"MMEVG2", "[", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0.5"}], "]"}]}], "-", "1"}], 
   ")"}], "/", 
  RowBox[{"(", " ", 
   RowBox[{
    RowBox[{"Pi", " ", 
     RowBox[{"MG0", "[", 
      RowBox[{"1", ",", ".5"}], "]"}], 
     RowBox[{"MMEVG2", "[", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0.5"}], "]"}]}], "-", "1"}], 
   ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "value", " ", "of", " ", "\[Beta]", " ", "to", " ", "give", " ", "right", 
    " ", "central", " ", "value", " ", "and", " ", "M2"}], "  ", 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.560789870109375*^9, 3.56078991496875*^9}, {
  3.560789992484375*^9, 3.560790024234375*^9}, {3.56079033546875*^9, 
  3.560790345625*^9}, {3.560790430625*^9, 3.560790461171875*^9}, {
  3.565002891265625*^9, 3.565002905375*^9}, {3.5670669415*^9, 
  3.567066942453125*^9}}],

Cell[BoxData["3.9086563831716723`"], "Output",
 CellChangeTimes->{3.56079046328125*^9, 3.5611297590625*^9, 
  3.56172822203125*^9, 3.5617897838125*^9, 3.56198253890625*^9, 
  3.562046302359375*^9, 3.56206845690625*^9, 3.562351550453125*^9, 
  3.56235464346875*^9, 3.562465837878006*^9, 3.562961652125*^9, 
  3.563086635671875*^9, 3.563727920734375*^9, 3.563821242921875*^9, 
  3.5638388240625*^9, 3.5639457758125*^9, 3.563985350015625*^9, 
  3.56402182725*^9, 3.56467828528125*^9, 3.564925383234375*^9, 
  3.56492920209375*^9, 3.565002906875*^9, 3.5650759316875*^9, 
  3.56534994253125*^9, 3.565454669390625*^9, 3.56553350225*^9, 
  3.566307568734375*^9, 3.566580552890625*^9, 3.566621693609375*^9, 
  3.5667434219375*^9, 3.567066944484375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"MGProf", "[", 
      RowBox[{"r", ",", "1", ",", ".5"}], "]"}], ",", 
     RowBox[{"MoffM2", "[", 
      RowBox[{"r", ",", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"MMEVG2", "[", 
         RowBox[{"1", ",", "0", ",", "0", ",", "0.5"}], "]"}], "]"}], ",", 
       "3.908656383171676`"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "4"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Black", ",", "Red", ",", "Blue", ",", "Green"}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.560236459015625*^9, 3.560236475140625*^9}, {
   3.560670308265625*^9, 3.56067042596875*^9}, {3.560670559953125*^9, 
   3.560670588140625*^9}, 3.560670671375*^9, {3.560681273796875*^9, 
   3.560681274328125*^9}, 3.5606903466875*^9, {3.560754381046875*^9, 
   3.56075442621875*^9}, {3.560758397015625*^9, 3.56075841209375*^9}, {
   3.560758885484375*^9, 3.5607589253125*^9}, 3.56076465121875*^9, {
   3.560788145390625*^9, 3.560788209359375*^9}, {3.560788247984375*^9, 
   3.56078825190625*^9}, 3.560788499203125*^9, {3.560788556328125*^9, 
   3.560788634234375*^9}, 3.560790040109375*^9, 3.56079036165625*^9, {
   3.560790398546875*^9, 3.560790410046875*^9}, 3.5607904741875*^9, {
   3.565002909984375*^9, 3.56500292878125*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwV0mk8lfkbBnCJOqkc2nROSdZGSVqmRXE9jZoKmWOPJLuQNUJNxDCVpYTs
Za2IQ8IREuexjb1EprFNQkLSgtR0/H//F/fn/nxf3vd1ydq4G9gLCwkJxZD5
/9a2H31e/c5HU1zYsTHwFQ0RLbbHAMsIZt+f5AUQ70xNSCli2WG6tsPkIvHQ
eoUgXyU3uDbmNPgQ67R2P7rN8sZXu0PzrsQKEdJ352X88fvw3R+2xP9p28Zb
KwUgOKyDNiUeC+mstY4LAkLb9Y4Rm9rNVkazQnDla0b6XuJaLXZpTcqfaPxq
WKFIrCav8fCLzDUsiRhLliBOEbbKUcwMR3+Ou9bc3zQYg8EZJkrX4bL/feEA
cfm/Ha01RlHQXuf2tobYg2OnbRF3EzGrBW/uEvdtu6IVyYrFEBW4w5Y4NnVt
teLJW5DgR4RoEmszHxx4mhKHkbnXt6WIeZMtP3+QScT0zXtKNd00zlpaPrpi
nQRO0764W8RybR9UN2YmI8jVotWe+Dp3xU/6SnegJ5wRPf+SxmHprKx3jqnY
bjy1sZE4oD5Jgm+UBusuBd8o4l27VSLN4tLR45d+cS1x2urf/gxjZeGnvLq3
y7toXGyNrzUpz8Lhnese13XSMAn9V1j+5F1Mh23Xv0i8bNozsCLlHsw7ZPoH
XtDw64z1m5DJgfzhQofrHTQMI/p4j6tzYK5VcnkXseohpekQ6we4Whpl9/dz
kmdRqad0Zi50WC5hLGL9mH+c9ZTycfDBVsOgdhoqOvI57IZ88IsdqlcTMxae
fTviWABBZuPX+200TpcJCquMHsKG9VdzXSuN1cpRqifiCvErf3Z+pJlGEKNo
0zVWMSYyCtqqGmhsPnLz6iOPYpzRUB5TIO4IdX/X01CMrNUVnlfqSX8WquSq
ni+BRLl1/aE6GvU/slQ7O3jY6Jx4PY0m936O+1kmogwHeC3DvU9olGz3iTv6
pgzRRvvH1hJbehjOeqqX42SyhpVBBY2C98yy2tFyqHy+klFZRsNg9OoB58NP
8EX/cLgPj0ZC3wWtEsFTGKsIa7sU0Di43iyr37gKM3HBCQH5pK/me0QZ3Cqs
79c/fYNLY8OEvy13azWyP/JMc3JpuDvtVhTqrUblhi6hqvs0VtgVZN/dS+Pl
GtUMz1QaJ8zSC6Y+1kIlYrxtNoLGhx4jsQx2HTbo2e18Fk7jT0uGvaFWHRQu
LPO6F0ajyNadzYutg3nNaKDuVRribhqhF/fUI/PQp/GAP2jUBb8yX3SpAZ+Y
2/0v+dPYkSe5aD2jCcofp5re2tJoVK2zalVrgvN9/YDfbWhYFfpVBJg14VrB
WWmmNY1I3oDH6wdNCFhzQFbVksZoNbfn3vFmHBeYcAxP0LjTdaxwe0wLYgxf
d6vr0lg6H2RxZEM7fkm9J/nHDvIvJ1NLlV/bcU7YfqhfjeTVqWIl6daOF9Kx
zXu30dDM6bbtqWxH8f6NNsNbaJTlxJWUqj7DROynz8qKNN4bTjzRaXuGHcZf
pkylaBhnxzefW94BHW/vnbrf+FDUnxytCe/EI3O2Rnk5H+zAI+qO6Z2wqX48
6fWYDwluWrhYaSd81pbdUubx8Y1hqKo/2AlZWvKvqEI+nlWXnuvf24UQY27P
r9l8XFALEnwd7oL7G2uuwS0+2pirVqlS3VCS00+YcuXDt20fEr68wpsJe34I
iw+pYsn+BQsGsDyN/fymUzV4g1ot7QcGMdr5V+7opirQzrfXmU0MoWCVJud3
q0pMK2kwua5vIRZx5v54WgWE53Il1imOwXRzV2t5Xhl2z1vxDPMn0FyulG7R
WYqWkF1t9Zs/QMopOObWYh5kosbncian8PPURy9d6WKMzw70d6l9AmttXmKQ
zSNkjVU0iV//jJF3DbHp8Q8hLn3/w9DQF4TayJSV9XIR4VTikKYwg6QogYf5
9APMULlDZwJnESmh8ziDkQ3vHbXFa2q+onj8VA879C4G8mvDn8t+g6iPyNuP
izPx3bkzWfnCdzg8/D479zwNWw4uFjhU/IdcmXzN1He3cSRD1rFQSoAzGzPK
pI4mwVf6tNxri3moH2NOxFHxUJkwXtp9XIiSPvW073xCLFYypxi134SoJRE7
t88yoiFSlVwgn7KA6neKcXTqvgGXXRWvlugIUzKHdM2NW8KRe8wm7emMMNV8
Y1Lujv5VTI+zJUbiFlK6wpr/il8MRYnhkYWxh0So+PHbvBQ6GIFHQ1OLR0So
TYnuNiuvXYZsn/bfmaGiVHqX8yWR/ZegvicklrVjEdUqlq4ye8sfFhva5xa8
WEQNRDxP1046j+mmyEGPoMVUVl3jdcv6c0gQsfQ2UGBQHeazuwZ9PbGyvyRD
uJZB+c4OLFSdcYPopSCjfZ5LqBl112ruNhcI5VgWDK4Qo6Q1bmRps8/AK6kg
cgUtRrEmE8uLttqjcstVhqTbUqqY4aD8Ms8GktpeKsHiy6ieqLW5imlW6N36
7IX/k2XUsNyQnZXZKTy8A4Uhy+WU6JtgxQolc5wq2C0pLVhOTVzwooKtTXE5
ND2o94E4lSj3inu+wgjcUelkcV0m1RymdnQ40gD6kuJ7G74xKZM1Q5Ui/hyE
iQqv6yUWN55kNfpxUDs3/WOK2DBm+Hwk8e7Bvhr2dyb1VJC0cw0xu4j7mxtx
spzs402+HAwaHXdc/R+Tatkc/17bhwPvhIg42x9MakmWuFi0JwfciMv+fsR+
aoV/mBCPXPa2iCQ+rkkJ2MQnnCzkSol92uRnMj040FBXyRcTMCknA6GPJe4c
LOptriskNvFduvIfVw7wrCq7nnjqoHfyHWK/2qLwHuLveo0KtsRjecn6ovNM
KnvjXvWJsxy0XXLpO0GsvusnD4ELB4u9Tle7Eu/L+jRPE1MOhpnBxLv35ERd
IX6kt98pj9ie90+xBPH4L9t0+cSVScZHu5w5UNgjv+0lsXH0k95EYsstUivG
ialEppclcbzM0ul54uhcPYY88f8A63d3mw==
     "]]}, 
   {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwV0nk41XkbBnBO0UlyaBMlb0K2iCnSVPevMBVtJ0sUB9kGjS0JTVlCslVD
dmWtLMeSLWQ5vw692asTZZ2MaUxRZiJLxft9/3iu5/r8+dzPvfms50knhpCQ
UDyZ/29jp7HnTX9f2Hdu/geTG29oLDWQ9RqWMcNM2IEtccQ/3E1OL5dxxB89
oYVRxKMbFUMuKnvAKerLH2HEJh29DzNkfLHBJLP9V2LFGLm8RfkAsHquOvkQ
fzN2SLJXvoKqubxiJ+L3YQK+fWIIPt8Wf2BBfMpxpv43mTDMpjWwjYj5BrLV
T9IjYCfBL9Qm3r5lb+mU/HVICitXbSBOZ9jlK+VEY1fKR68lxMyR0GwL5Tgc
Wqk6MPaaRu3vLzqemN3Ex9y3M23EXiccja0Tb+HzIyV+EfGg1jWDWJkETEtE
e7gQJ9xd36R05jZmTrUf2U9szCrY05CeCEr9Tf964qqP7Ts/yadgaleWOK+X
xjkO5+E1+1R4CIcX3yJW6Pyk+Z+cNOh7hQvbEcdxV6mwle9gYrV+3XQPDSO5
3Ny/Xe4i54ycQj3xlZZUSZ5ZJtZ7Bu8OJd6hqxFrlZiFhefbg0WIM9cej4iS
yQU943d2UkDjUkcS36I2F/dTIyzziC3Cf2dsOZOHVEtxYUti8WnvoLr0eyib
Xu5W9ZKGvyDBf1w+H3llM3dPvaBhGjNY9agpH3b1fdvmn9PQNFSeDrMvgArT
0zOVeLS82lsupxA9QjYSgm4a7Pg+t2PKxdi5yqlJvYuGhsmWfNmnxZgxfDtZ
10nyXnLur3cuJbjhHNtzmNi2ZqGs0awUOs8O0ZwOGmtVb2paJpZBevmxzb+0
0Qhhlm+9LlOB3mVS2huf0lA7eCvyoVcFxPsa9S+10HgR7vl3/9MK1FzWvd3b
TPqzRKNQ068S88eHjCL5NFq+52oKXlTBoUEu+RmP3Ps5cad8TA2icneYt9fR
qNS+kHjojxqo205WCRFzvExnvHfXgjbJ89appVEywarhj9WCG/foc+wjGifH
Ive4GT2G+bKlekqVNJIHAw0qFxrwOKRe4RWXxv6NVrlD5o14W6BlMlxE+npa
T4TJbYTU2h2Cd4U0No0HOHC3NaHARkzsYz4NT1ddJaGBJhgavF49mEdjlWPJ
g7xdpLfBHRv2ZdCwtMoqmfyHD0lmgIJkFI1P/WZi2bLNyDOPNR+MpBHBYTqZ
GjTDv5Zx4sE1GuUOnrJVCc2wuXosQy+choTH3vBLei0YmT2R/2MwjebQN6dF
Lz+F6y3X5X0XaOgUSYluZLbik+I1LV9bGs80m+06trfikudbv682NOzK/Ouu
WLXi/AgnJdiaRmzVsNfbglbk6AX6hFnRGGvi9t872oYBNedIH1Mad14dLtOO
b8e4ac7w2E80ViyGWB/c1AVO4J1jBhokL9dTHI2fupD27cC6m2rkXwINOymP
Lti97h3tU6GxL7/Xob++Cy+Pt6a4KdGoyU+srNbsRl8HfdFnE40J0/HHJp3d
OJq+yFWUpGH+IKnt/MoXyA5mB67/lwcl9sexJ9ECbB4bTXIv5UE26OBulywB
korCDaWKeZDkZkaLVQsgpWI+WFHIwzzTVJM9IoBajsrr6Xs8dDdVnx/a9Qpm
j1xX22bwELg9ZGH2z1dQeqWT33Wdh07WmjWaVC+Yogd42vY8XOzUR/LUG9y3
3e4HMR6kK6SGhIWH4Rj1+ec48yZUjRi0d+0ZQT12Ltn/pQG0W8YGq/FRlK6X
dmtTrse08l4W95e/kLWxYF+UfR0Yc4WSG5Te41LEM0G4aw10F+2qTIvHYdm5
S2XuRjXaw3Z0tqh9Que75O+q/ErI3/wwl/9xEtWmPnEKg+X4MDM89Gr7vzja
0jmiuPUhct/XtUrEfcbQVYbt9NlSSMjd/zQ6OgVJrXLh+FAuYlwrnTMVv4Dz
z5/x9gUF+EIVjv4cNIN4Tw+ec+d9+OrwK9Y9mcXPoQH3ZU7nYbiYH/188zz6
ZqlfPcaz8dVNkKYa+BWdNoeH1vAzob5/2YJz3TeUUf8E+Y5m4GD2Zpcy6QU8
PTk///xUKi7K2Sq8tV6EksmdKRu7JGiMm6/oPSpExQW0S/fwE7CaNcnkzwtR
4/tfbHuE37C0Ma1kS7owZSzaJG+iehPuO+reLDdhUDdO3VuzjR2DwsNnMxu+
MCij2UAr6/5ITH+QlXyXuISy8KrVyhWOQKXpwSUJhkspoYKReNahqwg6FH63
4t1S6uz6yBbdFSHYPGj8OidchPLVNrdO2XkFu/XCEmR0RCn5mqb9kSGBsN7U
NSf8UpSqfSYire9/EdOtsSNeIcuooN3ltY4JvkheyvE9qcikzARCQdG6Plg9
VJnN4DOpWYuIrDtqXhC5HGKm772cGrKYSvT1OAehfE7JyCoxitUwETz5oyt8
UktiV9FilPa00JShtjPq1SOZUh4rqOa8WzU5CQ6QMvbRCJUQp2RLbw83e9pj
YFv3y4DH4pSYSeQF2f9yUHoHiqOcldT5qar3r93PwKZEV0puYSWl0ubXsyfE
EsHhWSEDBRLUgZSf0k5UmYM7JpcmcYRF6UpudM12NQVbSmLX03kW1d/8F9x1
2YgSYWwYIC4sZ2hpEPPnpr9PEutnrZOf2MmG7sjgE9mvLOqQuyrDk1i2nHvc
g5h7eP6lzw42RsyOuqz9xqIYOUb3AnXY8E2OSXT4zqLMXZxFojXZ4MYEB/gT
O3unrD5C/C7Y1zqW2G+Or7CS2NLVWqGaOPi8iOGNbWzs3a1RLLbAomoy1H+L
12BDdKCtuYzYhFpuk67GBrobH7QQixjRgTbE/vzy6H5i1rXzKZuI3xelsUUW
WVTjw4Y3mapsdF52H7Qk9tObccpTYWOZj23TL8Sqld7RzsSUs2lOKHH38dGy
rcQPj/3oWkRc2lYmXLCVjQ8HtI7wiAdyxdXdiRX1tmj1EPOjbM01iDnq0qs+
EDsGFARPKLORJL9iepG4/NxEUTHx/wA34GDc
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 4}, {0., 0.14726439640067512`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.560790478671875*^9, 3.5611297615*^9, 3.561728223203125*^9, 
   3.561789784921875*^9, 3.56198254*^9, 3.562046303515625*^9, 
   3.562068458015625*^9, 3.562351551546875*^9, 3.562354644640625*^9, 
   3.562465838924881*^9, 3.562961653203125*^9, 3.5630866368125*^9, 
   3.5637279218125*^9, 3.563821244171875*^9, 3.563838825171875*^9, 
   3.563945776859375*^9, 3.563985351078125*^9, 3.564021828390625*^9, 
   3.564678288*^9, 3.564925385828125*^9, 3.564929204359375*^9, {
   3.56500291534375*^9, 3.5650029331875*^9}, 3.5650759328125*^9, 
   3.565349945578125*^9, 3.5654546713125*^9, 3.56553350425*^9, 
   3.566307570703125*^9, 3.566621695546875*^9, 3.5667434249375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"MEProf", "[", 
   RowBox[{"r_", ",", "Rhwhm_", ",", "Ref_"}], "]"}], ":=", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"MoffM2", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"r", "^", "2"}], "+", 
         RowBox[{"rt", "^", "2"}], "-", 
         RowBox[{"2", " ", "r", " ", "rt", " ", 
          RowBox[{"Cos", "[", "th", "]"}]}]}], "]"}], ",", 
       RowBox[{"HWHM2R35", " ", "Rhwhm"}], " ", ",", "3.5"}], "]"}], "2", "  ",
      "rt", " ", 
     RowBox[{"EProf", "[", 
      RowBox[{"rt", ",", "Ref"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"th", ",", "0", ",", " ", "Pi"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"rt", ",", "0", ",", 
      RowBox[{"5", "Ref"}]}], "}"}], ",", 
    RowBox[{"AccuracyGoal", "\[Rule]", "3"}]}], "]"}], "  "}]], "Input",
 CellChangeTimes->{
  3.56023260703125*^9, {3.56023299115625*^9, 3.5602330049375*^9}, {
   3.560233058515625*^9, 3.5602332281875*^9}, {3.560233280828125*^9, 
   3.560233281890625*^9}, {3.5602333185625*^9, 3.560233318625*^9}, {
   3.5602333821875*^9, 3.56023338346875*^9}, {3.56023347115625*^9, 
   3.56023351040625*^9}, {3.56023419171875*^9, 3.56023419234375*^9}, {
   3.56023718671875*^9, 3.560237186828125*^9}, {3.560237359234375*^9, 
   3.560237362125*^9}, {3.560238482265625*^9, 3.5602384969375*^9}, {
   3.5606704653125*^9, 3.560670525671875*^9}, 3.560670792265625*^9, {
   3.5607588274375*^9, 3.560758867703125*^9}, {3.56500295421875*^9, 
   3.5650029599375*^9}, {3.5670667256875*^9, 3.56706672725*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ME0", "[", 
   RowBox[{"Rhwhm_", ",", "Ref_"}], "]"}], ":=", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{
    RowBox[{"2", " ", "Pi", " ", "r", " ", 
     RowBox[{"MoffM2", "[", 
      RowBox[{"r", ",", 
       RowBox[{"HWHM2R35", " ", "Rhwhm"}], " ", ",", "3.5"}], "]"}], " ", 
     RowBox[{"EProf", "[", 
      RowBox[{"r", ",", "Ref"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", 
      RowBox[{"5", "Ref"}]}], "}"}], ",", 
    RowBox[{"AccuracyGoal", "\[Rule]", "3"}]}], "]"}], "  "}]], "Input",
 CellChangeTimes->{{3.560789072078125*^9, 3.56078907321875*^9}, {
  3.560789329140625*^9, 3.560789338359375*^9}, {3.560789373515625*^9, 
  3.56078941871875*^9}, {3.560789464140625*^9, 3.560789504109375*^9}, {
  3.565002972703125*^9, 3.565002977921875*^9}, {3.5670667394375*^9, 
  3.56706674046875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ME0", "[", 
  RowBox[{"1", ",", ".5"}], "]"}]], "Input",
 CellChangeTimes->{{3.5607895474375*^9, 3.56078955*^9}}],

Cell[BoxData["0.13190094262475938`"], "Output",
 CellChangeTimes->{3.560789550984375*^9, 3.56112976165625*^9, 
  3.561728223296875*^9, 3.561789785015625*^9, 3.5619825400625*^9, 
  3.562046303578125*^9, 3.56206845809375*^9, 3.56235155159375*^9, 
  3.562354644734375*^9, 3.562465838971756*^9, 3.56296165325*^9, 
  3.563086636875*^9, 3.563727921875*^9, 3.563821244296875*^9, 
  3.563838825265625*^9, 3.563945776921875*^9, 3.563985351140625*^9, 
  3.5640218284375*^9, 3.5646782881875*^9, 3.564925385984375*^9, 
  3.5649292045*^9, 3.565002994109375*^9, 3.565075932921875*^9, 
  3.565349946296875*^9, 3.5654546714375*^9, 3.565533504390625*^9, 
  3.566307570796875*^9, 3.56658055309375*^9, 3.566621695734375*^9, 
  3.566743425109375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MEProf", "[", 
  RowBox[{"0", ",", "1", ",", ".5"}], "]"}]], "Input",
 CellChangeTimes->{{3.560789573171875*^9, 3.56078957390625*^9}}],

Cell[BoxData["0.13190324441293103`"], "Output",
 CellChangeTimes->{3.560789575640625*^9, 3.56112976171875*^9, 
  3.56172822334375*^9, 3.561789785046875*^9, 3.56198254009375*^9, 
  3.56204630359375*^9, 3.562068458125*^9, 3.56235155159375*^9, 
  3.56235464478125*^9, 3.562465839003006*^9, 3.56296165328125*^9, 
  3.563086637078125*^9, 3.563727921921875*^9, 3.56382124434375*^9, 
  3.563838825296875*^9, 3.5639457769375*^9, 3.56398535115625*^9, 
  3.564021828453125*^9, 3.5646782883125*^9, 3.5649253860625*^9, 
  3.5649292045625*^9, 3.565003004390625*^9, 3.565075932953125*^9, 
  3.56534994634375*^9, 3.5654546715*^9, 3.565533504453125*^9, 
  3.566307570828125*^9, 3.566580553125*^9, 3.5666216958125*^9, 
  3.566743425171875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", "Pi", " ", 
      RowBox[{"ME0", "[", 
       RowBox[{"1", ",", ".5"}], "]"}], 
      RowBox[{"MMEVG2", "[", 
       RowBox[{"1", ",", "0.5", ",", "0", ",", "0"}], "]"}]}], "-", "1"}], 
    ")"}], "/", 
   RowBox[{"(", " ", 
    RowBox[{
     RowBox[{"Pi", " ", 
      RowBox[{"ME0", "[", 
       RowBox[{"1", ",", ".5"}], "]"}], 
      RowBox[{"MMEVG2", "[", 
       RowBox[{"1", ",", "0.5", ",", "0", ",", "0"}], "]"}]}], "-", "1"}], 
    ")"}]}], "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "value", " ", "of", " ", "\[Beta]", " ", "to", " ", "give", " ", "right", 
    " ", "central", " ", "value", " ", "and", " ", "M2"}], "  ", 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.560789870109375*^9, 3.56078991496875*^9}, {
  3.560789992484375*^9, 3.560790024234375*^9}, {3.56079033546875*^9, 
  3.560790345625*^9}, {3.565003012828125*^9, 3.565003025359375*^9}, {
  3.56706686309375*^9, 3.567066910265625*^9}}],

Cell[BoxData["4.074645205109683`"], "Output",
 CellChangeTimes->{
  3.560789917765625*^9, {3.560789999578125*^9, 3.560790025765625*^9}, 
   3.56079035090625*^9, 3.561129761796875*^9, 3.561728223375*^9, 
   3.56178978509375*^9, 3.561982540125*^9, 3.562046303609375*^9, 
   3.56206845815625*^9, 3.562351551625*^9, 3.562354644828125*^9, 
   3.562465839018631*^9, 3.562961653328125*^9, 3.563086637109375*^9, 
   3.563727921953125*^9, 3.563821244390625*^9, 3.56383882534375*^9, 
   3.563945776953125*^9, 3.563985351171875*^9, 3.564021828484375*^9, 
   3.56467828846875*^9, 3.564925386171875*^9, 3.564929204640625*^9, 
   3.565003026484375*^9, 3.565075933*^9, 3.565349946390625*^9, 
   3.565454671578125*^9, 3.56553350453125*^9, 3.566307570875*^9, 
   3.566580553171875*^9, 3.56662169590625*^9, 3.566743425234375*^9, 
   3.56706691146875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"MEProf", "[", 
      RowBox[{"r", ",", "1", ",", ".5"}], "]"}], ",", 
     RowBox[{"MoffM2", "[", 
      RowBox[{"r", ",", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"MMEVG2", "[", 
         RowBox[{"1", ",", "0.5", ",", "0", ",", "0"}], "]"}], "]"}], ",", 
       "4.074645205109686`"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "4"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Black", ",", "Red", ",", "Blue", ",", "Green"}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.560236459015625*^9, 3.560236475140625*^9}, {
   3.560670308265625*^9, 3.56067042596875*^9}, {3.560670559953125*^9, 
   3.560670588140625*^9}, 3.560670671375*^9, {3.560681273796875*^9, 
   3.560681274328125*^9}, 3.5606903466875*^9, {3.560754381046875*^9, 
   3.56075442621875*^9}, {3.560758397015625*^9, 3.56075841209375*^9}, {
   3.560758885484375*^9, 3.5607589253125*^9}, 3.56076465121875*^9, {
   3.560788145390625*^9, 3.560788209359375*^9}, {3.560788247984375*^9, 
   3.56078825190625*^9}, 3.560788499203125*^9, {3.560788556328125*^9, 
   3.560788634234375*^9}, 3.560790040109375*^9, 3.56079036165625*^9, {
   3.565003031109375*^9, 3.5650030425625*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwV0nk41NsfB3D54k6SQYtMhDDpNkll6Vb6HClCKoOikDWXylIqUVmudcJV
yV72MrIbZGu+ZZiokCWJKFd26Ra5ZPmd3x/n+TyvP855ns/7fRQdPJjOggIC
AsX4/H8aOY+8JUevHHhTcitFY4AEIT2aZ7+MOXSnV5Xuxt6dmpBSKuMEW9m3
5tSxB2WVA6/R3WHD4KuLDGzjN10lD2S8Yfz3LAk6tnKkXPay/HWokxIdkMNe
MHKMt6ffgrxJgYE12GPBHTz7uECIbIqUoGCfcpqtvSsTDApXSi7OfyaBp0er
qEsJBZGr1+bGsNWVdIqm5SPgsdRAaTd2iqAdWyXzNuiazKU0YFMGgjJO0qOh
fZDHKcau+tT2ps48BhQsTH4lYXuecDKyjrsD7HfJnkHYH3eE6UXJxEL3w9Jh
Y+zY1A2kypn70CN8b3Q7thE1d/+zlDiofOZEE8cu//pac0o+EZQD16xs/ETC
BVvbkjD7JPD5W4yfib25eUpNITMZtszt4NzAjs6XUjWlP4REAS3ZrdiH5bKy
Rl1SgR66N36hn4RbDUkSz83T4KZWvm4ztoYWI8oqLh0OLqqqXMBOW3c8lCWT
BZzIctW7fST4vYnnnazKgod5joqnsE+GfBJUOpMNAd1bjWjYYjNe/tUpj6Cn
yomR/JEEn45Ynwl5NiyjK1phvSSYRX4sf0qyQfRoQ4kOttoh+kywfS7oMkTt
vvfgPksrvOQyn8C+3V9MTmKb3vvgdoxeAHpZF3wpH0hgGCuxafwCsAtuDyzq
xnkTF4aHXArhW5Vm9Unss5VLxVzzIngIt3gP3pOwbmuMmmVcMRh90Ndc30VC
IKV0S4QMB3YwT5QWtZPwu8Gd8BJPDvjmRgrvwm4L8Rjt4XMgaF3vvuI2/H8I
xhO1q2XwopxtwX5LQsNillpHWzmkpn89FNCC9/0RpykfWQlWtq1HG5tIKNt5
Je7IP5Uw9FpiWRXb1tNs1mtvFeRQ8xNDG0konKRW8kaqwC1pe8S+lyQwR8L3
ux2ugaOiM1aR9SQkfPTVK1t6Bj9tlkSbuCToylpl9VlwQaGQ7krBHjutLUzJ
54LvuUnOoWckbJq47pi/nQQnm5frK2pI8HDVUhHAuQoyRMX/qiRByqkwJ3vP
C1iVFa7wtIQES6v0wm//8iD6Lb0sMZOEqR5z0QxaPaRX//PycQYJobYUZzO9
eog69k6Gk05CqaMHrTy2HmQzx7z5qSSIu+uE+Gk3gOBYN607mYT6oO7TIjf5
4Ol3NiDnHgm78iRFZClNsLS6gz0fSEKjWr3dG/UmsOia3fk2gAS7Yp/qW1ZN
wKKLCT/yJyGqvN/zc24THBwdjTK6ScIImd/zyOQV2Px6p+3vQ8LDTsPinfde
Az/9qlW8OwmrlgOtDTa1AMOr2jrUCuflesqWod8CBUd8FdQscV8dDDtJ9xbY
69h8vOMkCQfYXY49tS1wMePIj43mJFSy48oq1FphMUXJOuEYCZNmEzXGza1w
Xp3B0NcjwSIn/tXl1W0QU6Aaf30bCSqmX0fqbnfA8p20LO5XLtD8Dfa6pHeA
ebTYkOA4FyTy026LVnRAqv1h/sFhLsxTzNRMBzrA6N9cj6f9XGglKy737emE
Lf+eC/Vrxb2pBy7996UTxtvuIIdiLjRT165VQ12QaFz0qtaTC9ea/4CE6W7o
e+wwSh16BtIcyb4VK/pBwKdDPIhXC+UDeq9b9g/AmnfP9f91rIEXbg82Wk0M
QsLwLauFySqYoetQ8y8OQ8wXtqe0byUIzj2R2KgyBmk67cG731eA1rJduVnB
BCQYK6ANxuXwOlijueH3KRAIfxBGqeeAfMz4HPvrN6B4SqC8zaUwPtvf16n+
Hb5Fr667ll0MWWPVTeLRPyBeJ+54yPoiEJd7PDU4OA1lCeL33XTzIdK17Fya
8k+o0vBuvZuXCz/Rk8E//WchkS8cNCmaA967eJz1df/BqnzF+b/IbOgv4N1+
qzgPEq2jB+jemfDLrSN5q+8v6Lob8GrGPh226f62dK56AXL4lbk1f6SCQYai
S7H0EhyKS5xKrUqGa3JnN3+2XobCnjbl2ecJwJiwWNVlIoBGJHVG7RXjYA31
G4U3L4A0pqai1sbcAyFucqFSygp0aejy+2rXO3Beo7p7pbEgUlmc3jiWEw1P
DB3Snv0URAr9AZockdugwVA8AHOCyEOONv19jgXPxD/1cH8JImuIdtaeZEFr
u430cwECmasGW75tZ4FVuWyZLkGgsXP1nXQ+CwYSepgvhAk062O3GFjFgmkb
q+g6UQItntmiZ5jOgptoA+PQagKtebPOpiyWBSJKXY08KoGuM//ZsCWcBTHC
cS6HpQgUse+S90M/FsiMmAs3rCXQ6QPZFzd6sCCjaU2mvjSBhu52rh1riQBG
fhviyxCIzlW/W1YXAWV/3+kzkCVQmJd/VGhFBBy4dOLGy00EOiKfL2TzJAL4
5lSaoSKBvmdlz+xJjYAT2s0VjUoEeqRvYUu7FwEOC8Y/mlTxez8joyd9IyAs
1MDtzS4CxYacVu80ioDWpAOWbfoEWkvJy308Hg5WNxdnmIYEqqud2PShPxwG
ztbcazfGedR+GpXsCIdp5b0tHScIdNGwyO9OTTjIFGrqd50mkIdYtkVrVDg4
1DE0et0JdPwHhWa8MxxmxmkSQ3EEsnHO4tBvhEHsg2F+SiKBntbEaFI9w2D3
cY6/WQqBund7Fi86hoFXickUmU6gIrfevyeMw2DSJ6A5OY9ANfct0yRlw+CL
8FCk6QsCJZ/7s/tqbSh0yhevrJ0kkJgRXyZFKBTKzAyI2ENCaDGG48LPDAb/
IyGpnCEhxNs0Ml9gGASKH43eZ4YIIwsxx3VL+wNgr3ZwrMwuESRtdp7VzroB
1pta5la0i6AVSUFKLibXYaYpasAz8DcUpWvbtKhxFRKEbL2ZyhT0+cHEfuHc
y7CmryxDkEdBKYWLdQVXvED4ZqD5H14rkelwjZN9mTsIsG0LB6RE0aEtGU3J
6DxcSiqMknohipwPHy4hfrpA7bZwiqT7KmSStl1VaLMzSBpdYgSJi6GlbtMF
VosD9G5vbb9eI4bCtG+0nUywg6KHoDxouxoZWjobnYiyAZtCLUm5pdUoSrBQ
1t35NASEpAf25oqjPxvtal3tTkH+iFyy+FEqqntLjPgMmoOppPge/jwVacza
5LCDmcASFtzYi+27QS3TGZs3N7P4Dfuo2upURWytgY91tF9U1K7yX2LiX0yg
leYfd8d2eBmQEhHEhAFzE5d1C/j+vGWHawATvBMi4xwXqUibKkLddoMJ+ZEB
132wl7flbRv2Y8JQgLd1FHZkoZ1hJralq/XmCuwz3dNhG7F19jIKRJeoiLuv
UVLMlwkiva/qi7EnrDdZTl5jArRycxqw/dtzQtjYPrzS2z3YG9x0Oc7YY3nJ
psLLVJT3JWVt31UmNN88/9ESOytp4XPzFSb8dukseRE7/f6s9G1sdM4sMwjb
JErguAF2ybF9rnnYc3b7Sa43E8YP7jj6HHuzhse8H7ayttKOd9iG3ws192Db
bpOWGscWjF/ymr7MhHj5VTPL2KNyZwqLsP8HZYxKTA==
     "]]}, 
   {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwV0ns81fcfB3AJnY5cu8094WzDlH4lWnp9m4xI4hzGyGVUkxLNFrXcHnRz
mUWHcnKJyiXO3HPrfItDO4RcUnO3MzvLKdaiSdjn98f78X48/3y/Xm/9b065
HpGVkZFJI/P/7XBE8pT+6/s9j/eFOelP0JCz0Qwd1eBg48mDAZuI/5eTyavU
CISn5VyBDrFY2zD2DCsEA4+C1DWIHZ8MVNzUCIfnZHGJOrFhks7tZb1IbN7V
GMok/uAQkOHPioJUPc9fhvhlfF+LPzcWb+IOR70dp/FV4LumqxrxkHjOtU4S
t9ho1jbzLkBqGPb5APFWA+tf3updRrpZ36CQmCfrV2SUn4jeKFZhBTFjIu6W
OysFjMFTuTeJ68d6njRzUvGP8H7LBeLQQ4EO3tyfcT2auT6EeHjLRZtkjXRM
q/1ttZM4Pecj2sjrGgx0eMoaxA4qxbsf8LjQ9f5RZX6MRs3rjh3Tetfx44Iq
t5L4hI9PxUX/G2g4M66VQry5c9psU34W/H31Oo8Sp5Sqf+LCykZbm8F9dWJb
nYKCv47lwP7Ampk/RmlEtd5QfcjJBc/mDqeWeLuFabInNw+f8XcVcIhz1ztf
uKJRgK4mA9/IERrnnmS0uNcXQPCme8ma2D1hTNbA6zbCmIPtMsRrZsOiG3h3
8MO1oNcxwzQi+tIjpHpFYLHYHsFDNNhJwzX36SL85i48ok9sto81G+9fjMuS
kLz+QdJnZW2YTn4J9A7/nm9J7JL22/GDrDJ8K3r+XPKChqmjQZFmWxkaNl3y
SiVmrDzx5+QxPtItI5QsiH3rlsoFnF+gbF26fO45jfWfppp5cMshdrum/+YZ
jVhG5ceXNapQa7sh+mIvDWO7ny9VhFbB0lZJnUHck3Dqr8G2KojeiBMu9JD/
WWlaYvZDNbY/NFU7/5RG62KBWV9PDTLvqzcd6iL3/sPdoZdUh0dGOrevimhU
m3/Ptf+9Ds3rlI78/SsNn1D2u7Bd9bCHMfMgMf+VSl2LpB7bJvXlVzym4Sq5
tPu4bSP2ZlW1OglpZA6ftaleeoDd8ooP4wQ09mp7Foy4CdBmqv1e8ID869c7
5RmlArTP5+ksNNHQlUYGlH5Go9wi2ii4kcapIAsjGZKrduvoF9vqaKgH8gtv
Wz4Cr9GdebiChodnHn/m7xZ8eHar7ON8GtODHOYtTSGmnBZdt9+iccGHcYRt
I8TZ18/MkUejMuCUZk26EFeiMnKdc2goh1gnnNvZinf2AU5eWTSEcS++Vjjf
BtdXatBNo7HtnpqCNkOEYMen591iafxqJvR7slUEv9wcyjiGhl95REOUpwj2
srWOi1E0kmtGQ8eLRZAvu7M7+0caErp08I5TOzyM57jtZ2hk9+8vN0/rwLcn
+m/0naShuBzrbafbBYOD7SfyPUheQV/5mH7ZBe+sBf39X5G++kz91EK6oLDD
jnrlRmNP0UDAYFMXCj63rd/KplFXxK2uNeuGxXRyRYETjVdsaaNjZzf2sO6a
7P2ChlthRvt3Sj1gVwk3HDKmYeTyWtKc2Af++E+hHVMCaEbb7TqW1webyfGZ
1RIBVEtzE5m1fXAWlyjuEwvwnsE2c5now80n2Fg2JEA3XfvdiGU/bvzWW+X5
RICzW2OX/v2jH6xr8rGqZQJ0qqxbZ0YN4G5qhxvjpABnOq2Q+fYFFp7KOseP
P8DGKrWRFStGYZxSObLzQRNqJmw6unZPYLQiYi7JqxGPjt/U8pSK8eeVy9G6
Y/WYZVmrlJ78E+bbfthRF1QH2fkSVS2jlxCtk/7qIqyFxbJfDbtMCkVvfxNT
ixp0xG/vbDWexrnFBlFUWRX0Uqfmi17PIMZ2Y80fzEpMvRsd6d/6Bs8PZWxa
m1yOgpcNIuWUf6DgazJj8IEPZZ2702LxW6iKh7Vz1UqRFFR9NNdwDloXhF4D
UcWYo0rE30a/Q68o3jl47C7Ct7VUbWj+F6xC1bH267cxWtaS+FT/PUrSuiXm
rvlYON6X9enZBSjEvY4wss2Dyd5VS0cbPoAyflFlwsyB3S39Y+Ubl3BFc4OV
LjcLZ3R8N497L2NwywZxZ3EmTKVuigNOMpTugQ6DVWu5WKsyw2h5L0OZPw6e
a7+SBjlBFt+At4IylNRrOZ34GcHbG16sdpSl3LLbrMKbUlCy/5vcB3OyVD9/
oi3pk0TMTmmqTnJXUj5HNyhFml1CNdtuZfo+OaonP3hFo3MCou0Tcqom5ahC
p6vzx6fjoD/s8Dw/QZ6S5b/73W0oBrt2xqdrbFOgNnlaWMo0nIe3btf8il4F
6qeiHKO4U2cxK0qeCI1dRdWKGLcD7c4gU84n3NWQQWVZ+RpHloZj7Uj1LdkW
BtXca6r49fHTkD8fy7EKW03dsLra64ZQyBT58CfUmVRdh5z8fukJnL7BT1Z/
xKSK88f3bI8LQpPJJYZaiCI15pp+mJV6FGoOp03jlNdQUgfHLu7mQAx91t0b
2biGKrbv/tSiyx+/ZMNQ7KNEdUaWT7x67IvDfAs1nSUl0uLVXL/T3ohJyIsd
KlamegL+tedZe6JUopOlfECFur82w280wx0uasqWbe9VKG/G0o42JQ6uyMtq
DRFHB2e7RhG3zM8uzhAbG3qG7iC2mBhu1lxQoRLjdfj5azjQrCx1DiF2jR+3
ilHkYILjdGz9BxUq97prvNVqDsIzk7gBiypUirROek+Og9KkmMgI4i4/nmkg
8WRMuHcysRYv86QWsUeQ9+ZaYm33kTeXV3Jgvcu0jLmkQpl7ZTOPyXKgMNQu
LCc2EEpD9GU4QLegsJW4OD2Ifr7MRkRLZeIg8UfiZfVU4pf3slzkl1Uo8UxE
w9ISG53ng4c9iLtteRpDi2ysOu1LnyT+OFP8XRoxdZSdH0fc8+WXXQ7EFQc/
D7pHfPGu2+W6D2xMfbHlwEPinEMrJaHEhjsNtjwjdtonsvuE2Mdko/oU8eao
4sLRBTYy9BRnl4nvzOczM4j/A8G7bI4=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 4}, {0., 0.13190324441293058`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.5607885009375*^9, {3.56078856209375*^9, 3.56078863696875*^9}, 
   3.5607900448125*^9, 3.56079036528125*^9, 3.561129763984375*^9, 
   3.561728224546875*^9, 3.5617897861875*^9, 3.561982541171875*^9, 
   3.562046304703125*^9, 3.562068459234375*^9, 3.5623515526875*^9, 
   3.562354645984375*^9, 3.562465840049881*^9, 3.562961654375*^9, 
   3.563086638203125*^9, 3.563727923*^9, 3.563821245671875*^9, 
   3.5638388264375*^9, 3.563945777984375*^9, 3.563985352203125*^9, 
   3.5640218295625*^9, 3.5646782913125*^9, 3.564925389015625*^9, 
   3.564929207015625*^9, {3.56500303521875*^9, 3.565003045859375*^9}, 
   3.565075934203125*^9, 3.565349948953125*^9, 3.56545467365625*^9, 
   3.5655335066875*^9, 3.566307573*^9, 3.5666216979375*^9, 
   3.56674342796875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"MVProf", "[", 
   RowBox[{"r_", ",", "Rhwhm_", ",", "Ref_"}], "]"}], ":=", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"MoffM2", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"r", "^", "2"}], "+", 
         RowBox[{"rt", "^", "2"}], "-", 
         RowBox[{"2", " ", "r", " ", "rt", " ", 
          RowBox[{"Cos", "[", "th", "]"}]}]}], "]"}], ",", 
       RowBox[{"1.7446920204827057`", "Rhwhm"}], " ", ",", "3.5"}], "]"}], 
     "2", "  ", "rt", " ", 
     RowBox[{"VProf", "[", 
      RowBox[{"rt", ",", "Ref"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"th", ",", "0", ",", " ", "Pi"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"rt", ",", "0", ",", 
      RowBox[{"20", "Ref"}]}], "}"}], ",", 
    RowBox[{"AccuracyGoal", "\[Rule]", "5"}]}], "]"}], "  "}]], "Input",
 CellChangeTimes->{
  3.56023260703125*^9, {3.56023299115625*^9, 3.5602330049375*^9}, {
   3.560233058515625*^9, 3.5602332281875*^9}, {3.560233280828125*^9, 
   3.560233281890625*^9}, {3.5602333185625*^9, 3.560233318625*^9}, {
   3.5602333821875*^9, 3.56023338346875*^9}, {3.56023347115625*^9, 
   3.56023351040625*^9}, {3.56023419171875*^9, 3.56023419234375*^9}, {
   3.56023718671875*^9, 3.560237186828125*^9}, {3.560237359234375*^9, 
   3.560237362125*^9}, {3.560238482265625*^9, 3.5602384969375*^9}, {
   3.5606704653125*^9, 3.560670525671875*^9}, 3.560670792265625*^9, {
   3.5607588274375*^9, 3.560758867703125*^9}, {3.564677916734375*^9, 
   3.564677935578125*^9}, {3.564678580125*^9, 3.56467858046875*^9}, {
   3.564926331609375*^9, 3.56492633653125*^9}, {3.564926370671875*^9, 
   3.56492637159375*^9}, {3.56500041365625*^9, 3.565000413671875*^9}, {
   3.565003055671875*^9, 3.565003059953125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MV0", "[", 
   RowBox[{"Rhwhm_", ",", "Ref_"}], "]"}], ":=", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{
    RowBox[{"2", " ", "Pi", " ", "r", " ", 
     RowBox[{"MoffM2", "[", 
      RowBox[{"r", ",", 
       RowBox[{"1.7446920204827057`", "Rhwhm"}], " ", ",", "3.5"}], "]"}], 
     " ", 
     RowBox[{"VProf", "[", 
      RowBox[{"r", ",", "Ref"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", 
      RowBox[{"20", "Ref"}]}], "}"}], ",", 
    RowBox[{"AccuracyGoal", "\[Rule]", "5"}]}], "]"}], "  "}]], "Input",
 CellChangeTimes->{{3.560789072078125*^9, 3.56078907321875*^9}, {
   3.560789329140625*^9, 3.560789338359375*^9}, {3.560789373515625*^9, 
   3.56078941871875*^9}, {3.560789464140625*^9, 3.560789504109375*^9}, {
   3.5646779424375*^9, 3.56467795228125*^9}, {3.564678575640625*^9, 
   3.5646785765*^9}, {3.56468025471875*^9, 3.564680255859375*^9}, {
   3.56468028665625*^9, 3.5646802868125*^9}, {3.5649262860625*^9, 
   3.564926286703125*^9}, 3.5650004136875*^9, 3.565000980375*^9, {
   3.565003237859375*^9, 3.565003257015625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"2", " ", "Pi", " ", 
     RowBox[{"MV0", "[", 
      RowBox[{"1", ",", ".5"}], "]"}], 
     RowBox[{"MMEVG2", "[", 
      RowBox[{"1", ",", "0", ",", "0.5", ",", "0"}], "]"}]}], "-", "1"}], 
   ")"}], "/", 
  RowBox[{"(", " ", 
   RowBox[{
    RowBox[{"Pi", " ", 
     RowBox[{"MV0", "[", 
      RowBox[{"1", ",", ".5"}], "]"}], 
     RowBox[{"MMEVG2", "[", 
      RowBox[{"1", ",", "0", ",", "0.5", ",", "0"}], "]"}]}], "-", "1"}], 
   ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "value", " ", "of", " ", "\[Beta]", " ", "to", " ", "give", " ", "right", 
    " ", "central", " ", "value", " ", "and", " ", "M2"}], "  ", 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.560789870109375*^9, 3.56078991496875*^9}, {
  3.560789992484375*^9, 3.560790024234375*^9}, {3.56079033546875*^9, 
  3.560790345625*^9}, {3.564678235*^9, 3.5646782494375*^9}, {
  3.564679172390625*^9, 3.564679173546875*^9}, {3.565000950578125*^9, 
  3.56500098040625*^9}, {3.56500319709375*^9, 3.565003207515625*^9}, {
  3.567066965125*^9, 3.567066966234375*^9}}],

Cell[BoxData["2.486056141519415`"], "Output",
 CellChangeTimes->{
  3.560789917765625*^9, {3.560789999578125*^9, 3.560790025765625*^9}, 
   3.56079035090625*^9, 3.561129761796875*^9, 3.561728223375*^9, 
   3.56178978509375*^9, 3.561982540125*^9, 3.562046303609375*^9, 
   3.56206845815625*^9, 3.562351551625*^9, 3.562354644828125*^9, 
   3.562465839018631*^9, 3.562961653328125*^9, 3.563086637109375*^9, 
   3.563727921953125*^9, 3.563821244390625*^9, 3.56383882534375*^9, 
   3.563945776953125*^9, 3.563985351171875*^9, 3.564021828484375*^9, {
   3.564678243125*^9, 3.564678250828125*^9}, 3.564678292109375*^9, 
   3.56467858871875*^9, 3.564679174140625*^9, {3.564680264625*^9, 
   3.564680291375*^9}, 3.5649253893125*^9, 3.56492920715625*^9, 
   3.565003215125*^9, {3.56500324609375*^9, 3.5650032626875*^9}, 
   3.56507593434375*^9, 3.56534994928125*^9, 3.565454673796875*^9, 
   3.565533506828125*^9, 3.566307573125*^9, 3.56658055325*^9, 
   3.566621698125*^9, 3.566743428203125*^9, 3.567066968359375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"MVProf", "[", 
      RowBox[{"r", ",", "1", ",", ".5"}], "]"}], ",", 
     RowBox[{"MoffM2", "[", 
      RowBox[{"r", ",", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"MMEVG2", "[", 
         RowBox[{"1", ",", "0", ",", "0.5", ",", "0"}], "]"}], "]"}], ",", 
       "2.4860561415194153`"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "4"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Black", ",", "Red", ",", "Blue", ",", "Green"}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.560236459015625*^9, 3.560236475140625*^9}, {
   3.560670308265625*^9, 3.56067042596875*^9}, {3.560670559953125*^9, 
   3.560670588140625*^9}, 3.560670671375*^9, {3.560681273796875*^9, 
   3.560681274328125*^9}, 3.5606903466875*^9, {3.560754381046875*^9, 
   3.56075442621875*^9}, {3.560758397015625*^9, 3.56075841209375*^9}, {
   3.560758885484375*^9, 3.5607589253125*^9}, 3.56076465121875*^9, {
   3.560788145390625*^9, 3.560788209359375*^9}, {3.560788247984375*^9, 
   3.56078825190625*^9}, 3.560788499203125*^9, {3.560788556328125*^9, 
   3.560788634234375*^9}, 3.560790040109375*^9, 3.56079036165625*^9, {
   3.56467861678125*^9, 3.56467862240625*^9}, 3.56467933696875*^9, {
   3.564680277328125*^9, 3.5646803016875*^9}, 3.565000413734375*^9, 
   3.56500095059375*^9, {3.565003282234375*^9, 3.565003306984375*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwV0nk81PkfB3DkGImJUouQHF2obCU2+/qW9mcjyZGIMEaRNIwUaiMWqxzb
MTsR64jIfRPmGzFoEXJsh6skKXbZSqKW/fz+eD/ej+d/7+Ol4e5rc1xMRETk
Bqn/d/Pj44/r3579vtjCODHOl4a4qbLfsJId6s15YzHE36YmJJcpeYBTWt8R
RTy6RissUIeDRxMPrEOILR49Kf1dKQDUlyRff2KtWNU7i+rBuHzJbgOb+Ks5
+yZLJwT3Kt9fOET8LqJXyOKHQTkg1NuY+IjHLH1dKQLmmyQ+riUWmipXNSZH
QXHs12/EibdqmhR/VL8MtpXe01ccGslibjnaGTHYnzNpUE/MGAm/ba8Tj8HH
QxsSiWtedD9qtLsKg72rajjEfoc8zJ3517BPLnuMIh7c8otpnBIPqUw9hf7T
NHip39RrO/2GXH8b+Qxic2bu7vvJfDyM3ZbvSVz5d/uOKfVEBL+OrxjzoeHj
4lL6C+sW3LTNtdKJ13VM6a/NSEKPmtEWB+L4AoUN1jop+HXYRFlwisYPqpmZ
bz1T8THw93kv4pDmW8sf2KWh85QwUIF4+07dOEd+Oi6mye538qaRpmgVdUUp
E1J2pw4IvWhceHRTaF+TCa28p6vtie0jX4hpOt2Bl2NY2KgnjWUz3NDa5Cxs
YxzbOnuCRlAvL2hSPQevJi+JffSgYRs7WHmvPgeqCqLN3sT6+3RmIli54EXw
Nw6xyT/LqriqGXlQOL+su8adhvWN594HdQqR+1NbkYUbDV0LzRzllkLECa9d
yHYl917i82bMswh1PflvF11ouFYvlNTZFcN4qXph1jEaihuv6jvwSxDi9PVF
21EaYYyy9ZeVylF6QHL3WTsam8yuRZf6lWPUwO95tC2N7kjft/0t5Xih8uRK
gg3JzxLdPP1zFRA3v/5z1iEazf9m6vd2V0JHg+eTcoDs+4G/Qz22Gp0xLG63
KY2KbWf5P76qxuTQWffsvTRc/GxnucY14ETc5gTtoVH0F7NaOF6DfPVXz+VA
w2Y8erf3DwK43GtTlDWmkTB43rRi4T5Ek71KrbbQ2LPGMXPocB12e41lj+mR
vB41lGAU1GGDzXhjsC4NtclgdoFePbbPJfnzNtLwPblTW2SgHrq9MZZJmjQU
PIru3tnVgJ6f19m/X0XDwTG9aPofIaRw/+bDeQGm+u2W3lZugnHpZTXJOQGi
XBjHbU2bkPDRnE3NClDG9lWu5DVhWiCzKe+DAHIck8gLhs1QeM4SOk4K0BT+
7KjkxRYUN1mkqw0KYJAvL7mG0Yoorka1iUCAP/Sb3B5tbYVNw7WGlTUCuJUE
1YY4tiL80G/Z41UCxFUO+73MbYWR8gnGL2UCjNcX9GdZtsHB5O2elFwBUvr2
l2y70Y79P+SEGCYIILMY5mym1gmezNhFVa4ACSePuOj+rxMXUp2fpnAE0OrV
dZPndOLQd99aqfoI8H3OE3Y/3QmGLYcv7ylAdQ6/okq/C32yTrlPnAX4y3ZS
YNHRBcn2rNfPzQQ4fPdm2xnZbsQvcDubVATQtv57vDGmF1mJ389za2uhHGpm
7JneC7e0lsKFqlosL0iLWVrVi3UrGEejy2sxz7DVtx7pRdpEYtL1glp01Ved
GdrVB/UjBV/CU2txfmvYwufXfej7ruReb3gtOpgrV+pTT5Agu1bR3KwWgR1G
5PbPwOAm2D5vqcHqcvkhUdFhKBtx7TfXVaNyxLS9c/cITseqvnIPvYcG799V
HCdHsfBTkK+ZbhVmdEyYBaffQPylPPJfVEBsLm+5ivY71Mk7nHzsW46di26V
toWTiGtU1JhbWYb2iO0dzZumIC7n+v5+YwnUr07M5fw9DZ/gF7PCY8WYmB0e
6tv6HutjuM/adxQi811tq1z8BwSqUoZfbuZBTjV7anT0I/5cGxLtvykHsScr
TqRpfUJ7bE7XT9LZ+ETljXqFzmLjmaDz/S8zEWAgLF/V+BlW+5KDU8UzMFwo
jHmsMY910tHxC+vT8cW7N2nj+S9ol5auE/+cgs17pBZO1H7FM0uOwrRqMsxu
a3iWrF7AsY2rdq6wTCRzuK576byIoXPMAPd3fOhOHpZ5YilCsdsj38i38rCC
Oc0QzotQYQ8mBv4puw7xuqQizWRRallhuZ7++6s4tb32mbSFGGXpvUXK8lw8
8va7p93/JEZ9eLnZyZQbg5kJ5eVj/CVULKvZ8OJ4NCpszZbw9olTbiGu7DHf
KIT+GJlaPiZO+f965/WwdwQ0Bs2fZkRKUMzlLbcO8MJhbBjBUzKQpHKbdWO/
+eMSnNU650R7JKmsDZlaZldDMNMaN+IXJkU1JxxjOd2+gARxlwAbLQbl3vNt
iZ9eMFYMVdwWEzIoG71tBpMSgZC4GGZnxJWm5O88LXz9PgAiOS5FIwpLqfxt
A2ffqJ6B/62iOIWGpVRlp/9BcRcu6M3RDHmODFXD3+7OqPSFvLm/brjcMkpL
SjGigHkaA3pdPcGCZZRRmPG+0ChvFKdAa9RFlrrr91mty90Lx4p2yqsuyFLH
5eoSpm6cwKXI9LCBXDkqeKsjr7jYAwXjqklyB5iU2dMGrow0G9bycrta5pmU
WJp6t34QC1ckxFQGiJdc32UqSiycm/l3mvhK0UB5TyALO0cGG5W/MKmy482J
QcTKZQVWHOLJK+reDedYGLGz9FT8yqReq7zRsj/LQkBCLJ/9L5Nicu+Lhfiz
UBB7KTiIuIsyijxEPHYpwDmOWEUUDE1ih5PO66qIRy0mmA+5LJgY6xYuXWBS
fX82aysQSw60NZUQP9KOPpXlywK66u42E6/XKPkURBwkLIvpJ+ZNeYRbEL/L
T7KWWGRSNgs+SdMcFjounhp0IH5ZtNBjTCzl71p/mpi9PIQtS0ydsM0IJ967
I/rD8GkWSg9+dzKfuF64WzGSeGLvlgMPiO9tfpN1hFjLUHPLn8SFVmuMNhG7
bF6tMEHcoz/Q9tWHhZvqMjOLxAdbdFw7if8D1mBRVQ==
     "]]}, 
   {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwV0nk01fkbB3ARobhoEcLP2kK30Nii9/eOJqLNkiJbVEJ2WaYpkWWEfllC
MVFujWWufRnu/UZcDEJKKzKMaWylmSgk5jN/POc5r3Oef97neau4+9ucFhQQ
EEgj89+2PD3W2zh+fk98Qa9Ggj+NlWbyAUNydtCjsk/FE+vlZuVUyp3CoSuy
KtHEo5vUo8I0/ZC8fv+JCGKrrhcVP8mFQNd511pfYvUkxXvLyhH4I3rIwpl4
0dIj86TmJXADbRb3E0/E9PFPZkRB50XGdj3iY6c+06lyMVBU+3VgIzHfTL62
OScO2fHNYl/8aOxUMy2bUU6A1Hxb1SviHEG3Qo38RDCYzweriEVHou/aa16D
Wa5AbBJx/e9PuprtrsM1/kSRG3HAkVOWThkpWP3H4kEd4sEd8WbJcumYKQuW
+s2XRnruxkaNEzfg8efFHdeILRlFJg9yMpApbdh1hLjm/aNvppVvYqOmUWzn
ORrnXFwq4k/ewnB/U+4VYtXuaeb/8rOxQT3ayJD4Gkdmi7XmbZhZG09m+ND4
TpHNHvfMRZR4jBCL+FLrLamHdnlwW2Jn/+VNY5e+drJDxh20Rqkc2Eact/5w
3FU5NvycHSpjz9K40JXJt69ng8m417OW2D72d0G1E/dgaO7qe9uTxprZwEhu
zn3YbFrDLDxDI7wvPXxKuRD0fdXO9FM0bJMGa35tLMRcbvm8CDFzr+ZszMki
/CxSU3zeg/yzsjZQMb8Y6jfMsi3caVinvfY+pFmCMJknZXxXGtpWaoXybSVw
L3ITUiAWFTr311vPUuj8/Lrf14WGa91SeYNdGZryppTFnGms33qdeTyjHIGN
PkvrHWlEiVZuTpCrQmNnqleCLY1t5ik/VgRUYXfOLPOGDY0nsf7j/W1VeGSc
9meONemPkHYxM7QaAuOtW/IO02j9ymb2PanB6+OJsqFWJO/HjG+Uk+pwdExM
1e1bGtU65zMs/qiDXLLrXi0WDZcA28+BxvWwcldy/wc0St8x6vhj9ajXrkoN
MaVhM/ajifd3POj6/DZgYUgja/B7s+qlB3i7cKhRZzsN1iYH9pujDViX1P6R
p0X66mggLMppQFva5h17t9FQmorw4GxvxJWkL437NtPw99LXEBhoRMiNS16b
VGjInCotuGfYhNQpqZvi62gcd7hT+uFvPiZzdu2Z/8TDdL+d+F35FqTbBrpu
meUhzkX0tK1ZCwyaWJp2H3mo9PCXr0lvQUukRcGdaR4k/UxjLxi04uzAh8x1
Yzy0RL9yFLnYhq6miQXHlyTHL9Iim0Q70JR2oCOghod2Zotb184OXM4RjNav
4sGtPJx7yaEDtYKpy3PlPCTXDAUMF3XAbqDwSAiHh7FGTv/9g524YCHmvZfN
w+1n+8t10h7B2igt3CqFh9XLUU7mSj14zi3b9/UsD1lex1y09/Xg94O1Wj5n
eFDv03aT9utB2mWWwnMPHvYUvvDop3vwcKhcKd+Fh7rCjOpa5mPIDC6+lLPj
4Z3tFM+q+zG0QyaYF/bwcLQgszNY4gkq/u4y2iDNg4b1+7HmxD74+DzdOsfh
Qj7S3NjzTh/SuBHtPkVcSHHyEsVr+9C8WG4zcJ+LBVFbpvVIH+ZVbbdW5XLx
uLE2+I3hM9C6nxWQwsX3O6OW5v58hgvrchuag7noZqxbx6ReIF0qMfqGPhdh
3UbImnmFY1sMvDoq6yFbJf1mxYohiE85Xaxh16FmxOxRj8kINpj2Rli6/Iom
758UHKZGseXKDwnewrWY1TRlcHz/wrtNRcN+1dUQnC+WUtCYwNCK1zFbWFXQ
X3arsS2ZwrZJu9CI0Qo8itnV3bptGoUX8y0rUsuhfH1yvvD9Bxzp5DJ+2F6G
yc9Db57t/AchM1UlAy85YE9wOySvfUSE1Y3rqaxiSCr+PD06OoN9VWbvGvoL
kORVfSZP/RMKj/nrzDXdxyeqePRs5GfE3w0fmWCzEaLLr9rQPIfoIJ2Cnsd3
MVTCT+xVWYDMUmKCwlIevnj3ZW/9/gvCrjmfW1V7G1qsVUtnuIs4O6U7Efou
G+Z3VTzLZZfQ0fuqTnX7TYQpuqoOOy2je/ng4OmXGdCeOrr6xUEBqqPieII9
Px1rGR9E+QsC1N/2Mb3P6lKxsiG7VC1nBfX/hQ0stxUp8NnFfSVmJUiJsdfO
Fd27huL97nkPPglS7A3ORa4liZidlJd6myFEjUiYJDfuSEC1rblQ+t6VVORu
0wf8hjhEWsTmVr1dSbVfaTYJrIyByqDly/xYYapi3lDj5kg0jA1i0uV0RSgV
p5jMLoUoOCn1zK94KkIlpw0qthtHYrYjeSQgahW17OBUV3D4B2StdAmxURel
IoIKv2zrj8DaN9V3Bfmi1FUR/xgDThiEL0bZGQWKUX1y1rOJV89DoNCldERG
nHrIutpTTQcj6FZpskyTOMUZN3t7ZSEQtNaPotJ+q6n3oY5Re3wCIG0ZpB0t
uYYaEJbTStHzw8D2x08jeGuo53qDHqY5Pii7DfVRFwmqTY8b3OvtBedSfWnF
JQlKsmdrEOu8Jy7H3okaKJKkJIwzgxzjToMzppgteYBBDcf1clkjHrCWljRs
W2BQwRstOE/N3HFVWFBhgNh3vVw0m5g/P/v1A7HS2tBj54n1Rwab5b8wqESx
PiFZYvlKzmE/4vFSZQ/Hb90xYnfQc/0ig9p3eGb3MOWOkKykDI+vDKrUNM5+
2tQdnKTLEeHEI31PTRqJ314OcUomZupx1FKIj3s5qdYSz5gKfdQlNjXWLhFf
YlCPHEyyQk3cITLQ2VJO3C87vPjV2B143FDQSqy2f2KymzicX5nY/9+9emR/
LvHEL9nWwssM6uNTKx6LuPuiz+BxYpehgJhYI3esCnJt9CXerPMizJ6YOmOb
H008rtTus5m44tBur1+INdoOH203dMfktzsOPCSWuDRqeYtY3UBtx3Pi+vaV
LB9iFy1ZmUniswVlBibEmcqrZ5eJzTeOMSWI/wUAEVk3
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 4}, {0., 0.1149834155169589}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.5607885009375*^9, {3.56078856209375*^9, 3.56078863696875*^9}, 
   3.5607900448125*^9, 3.56079036528125*^9, 3.561129763984375*^9, 
   3.561728224546875*^9, 3.5617897861875*^9, 3.561982541171875*^9, 
   3.562046304703125*^9, 3.562068459234375*^9, 3.5623515526875*^9, 
   3.562354645984375*^9, 3.562465840049881*^9, 3.562961654375*^9, 
   3.563086638203125*^9, 3.563727923*^9, 3.563821245671875*^9, 
   3.5638388264375*^9, 3.563945777984375*^9, 3.563985352203125*^9, 
   3.5640218295625*^9, 3.564678294921875*^9, 3.56467859459375*^9, 
   3.56467862575*^9, 3.5646791581875*^9, 3.56467934175*^9, {
   3.5646802796875*^9, 3.564680304296875*^9}, 3.56492539153125*^9, 
   3.56492629584375*^9, 3.564926346546875*^9, 3.56492921121875*^9, {
   3.565003297890625*^9, 3.565003310125*^9}, 3.565075936421875*^9, 
   3.565349954390625*^9, 3.56545467734375*^9, 3.565533526015625*^9, 
   3.56630757675*^9, 3.566621701578125*^9, 3.566743434890625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MV0", "[", 
  RowBox[{"1", ",", ".5"}], "]"}]], "Input",
 CellChangeTimes->{{3.5646797003125*^9, 3.564679707609375*^9}, 
   3.565000980265625*^9}],

Cell[BoxData["0.11498315022768908`"], "Output",
 CellChangeTimes->{3.564679708703125*^9, 3.56492539190625*^9, 
  3.564929211390625*^9, 3.565075936578125*^9, 3.565349954625*^9, 
  3.565454677453125*^9, 3.56553352615625*^9, 3.5663075768125*^9, 
  3.56658056034375*^9, 3.56662170171875*^9, 3.566743435015625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MVProf", "[", 
  RowBox[{"0", ",", "1.", ",", ".5"}], "]"}]], "Input",
 CellChangeTimes->{{3.564679715328125*^9, 3.564679726703125*^9}, 
   3.565000413828125*^9}],

Cell[BoxData["0.11498341551695937`"], "Output",
 CellChangeTimes->{3.56467972828125*^9, 3.564925392234375*^9, 
  3.564929211453125*^9, 3.565075936703125*^9, 3.56534995475*^9, 
  3.565454677515625*^9, 3.56553352621875*^9, 3.566307576859375*^9, 
  3.56658056040625*^9, 3.566621701796875*^9, 3.56674343509375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"2", " ", "Pi", " ", 
     RowBox[{"MV0", "[", 
      RowBox[{"1", ",", "1"}], "]"}], 
     RowBox[{"MMEVG2", "[", 
      RowBox[{"1", ",", "0", ",", "1", ",", "0"}], "]"}]}], "-", "1"}], ")"}],
   "/", 
  RowBox[{"(", " ", 
   RowBox[{
    RowBox[{"Pi", " ", 
     RowBox[{"MV0", "[", 
      RowBox[{"1", ",", "1"}], "]"}], 
     RowBox[{"MMEVG2", "[", 
      RowBox[{"1", ",", "0", ",", "1", ",", "0"}], "]"}]}], "-", "1"}], 
   ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "value", " ", "of", " ", "\[Beta]", " ", "to", " ", "give", " ", "right", 
    " ", "central", " ", "value", " ", "and", " ", "M2"}], "  ", 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.560789870109375*^9, 3.56078991496875*^9}, {
  3.560789992484375*^9, 3.560790024234375*^9}, {3.56079033546875*^9, 
  3.560790345625*^9}, {3.564678235*^9, 3.5646782494375*^9}, {
  3.564679172390625*^9, 3.564679173546875*^9}, {3.56492614246875*^9, 
  3.564926153640625*^9}, {3.564926183984375*^9, 3.56492618459375*^9}, {
  3.56500095059375*^9, 3.565000980328125*^9}, {3.56500332415625*^9, 
  3.56500333521875*^9}, {3.567066974609375*^9, 3.567066975390625*^9}}],

Cell[BoxData["2.178536198117216`"], "Output",
 CellChangeTimes->{3.56492615471875*^9, 3.56492618596875*^9, 
  3.56492921153125*^9, 3.565003336578125*^9, 3.56507593684375*^9, 
  3.565349954875*^9, 3.565454677609375*^9, 3.565533526296875*^9, 
  3.56630757690625*^9, 3.5665805604375*^9, 3.566621701890625*^9, 
  3.566743435171875*^9, 3.567066976828125*^9}]
}, Open  ]],

Cell[BoxData["q1"], "Input",
 CellChangeTimes->{{3.56706703603125*^9, 3.567067036203125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"MVProf", "[", 
      RowBox[{"r", ",", "1", ",", "1"}], "]"}], ",", 
     RowBox[{"MoffM2", "[", 
      RowBox[{"r", ",", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"MMEVG2", "[", 
         RowBox[{"1", ",", "0", ",", "1", ",", "0"}], "]"}], "]"}], ",", 
       "2.178536198176785`"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "4"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Black", ",", "Red", ",", "Blue", ",", "Green"}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.560236459015625*^9, 3.560236475140625*^9}, {
   3.560670308265625*^9, 3.56067042596875*^9}, {3.560670559953125*^9, 
   3.560670588140625*^9}, 3.560670671375*^9, {3.560681273796875*^9, 
   3.560681274328125*^9}, 3.5606903466875*^9, {3.560754381046875*^9, 
   3.56075442621875*^9}, {3.560758397015625*^9, 3.56075841209375*^9}, {
   3.560758885484375*^9, 3.5607589253125*^9}, 3.56076465121875*^9, {
   3.560788145390625*^9, 3.560788209359375*^9}, {3.560788247984375*^9, 
   3.56078825190625*^9}, 3.560788499203125*^9, {3.560788556328125*^9, 
   3.560788634234375*^9}, 3.560790040109375*^9, 3.56079036165625*^9, {
   3.56467861678125*^9, 3.56467862240625*^9}, 3.56467933696875*^9, {
   3.564680277328125*^9, 3.5646803016875*^9}, {3.564925341921875*^9, 
   3.56492535059375*^9}, {3.56492616865625*^9, 3.56492619653125*^9}, 
   3.565000414*^9, 3.565000950609375*^9, {3.565003345890625*^9, 
   3.56500334846875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwV0nk4levXB3Bk2OF5NgqZEqGBpEJy0rqlYps6hkI5hiLE3jYJkQwhmX5I
KJSxkgzZ+yGEnTbOQQiljqmQiFJHqIj3ef+4r3V9rmv9sdb63kpnfK3d+Xh4
eEbJ9//V1H3qJWf64qGeVkZj9zMC+I1kmaMytpBj71PYRXrf3awclowb2PcG
W3eQnpBXiQxSY8Dcg5sdLaTNXgxU5coEwFdaC95IWiVRoXhN8RKEy4nIs0mv
mJ7NdFW7AlaXvefvk/4U3c91zYiEyucz6bdI27ktNaTJREOAYRrPddJcI9ma
5zmxsGxwTjeQtNZWg8rvitdh8y9fXVfSOXwuJaqFCbCn4gmPKWnKWFTBSbVk
WEw2valFuu5d74vntimQ9Vzr+0bSzD/dTB0zUiHVN0hhiUPA8O5rRkky6aCS
erqbTTr97iaO6umbgKtK2aeQNqU+PNiYkwFzPt6lXqSrv3TqzCnegtLVnVWS
pH2cnKquud6G9G117lNNBCh3zWluKcwGRvOuiSekk8sktlup3YHkKqnDNqSP
KhQVTXvcBa/iJ0oKpK+03hZ7ZpsHmkezOicaCdDW1UhyyMiHFK+AaDrpPMnj
sfEyRfCTmRru1kBA6ItM7sm6ItDeI/JUnvTJmHd8W08Xg/rFQm7vUwJEF/zC
63PuQc6xKn090sH96cGziiXw88Gy43QdATaJw9VPOCXAfqTEl0Ja84jaQrTr
Q/B/dydAm/QEq8ZPobAUostQc2AtAVY3/j1vqVYOOsFc/vc1BGiYbS2RbSuH
2n9BJpA0ZZ3Px0mPCvi43neFQtq5dvVxk20lPLQs2b29mgDJHSma9hmP4Rhd
8Lg5m4BICmvbdRk2JE+b5qlXErDTODWuismGlqNeFakVBPTG+E4PtrHBNm5S
c6Gc/D/rNEo1AwmoVTeMYJcR0Pq7SLO/txqyyzIvbiwl953P0FFMrIURZbEf
DsUEEHsuZpiM10JUV5VOZhEBTkybJT/9OlAD++mXhQRUfKbWcqfqwIFhyIYC
Aqyn4g6eP/oUBt2/jK/cISBrOMSIWG2EBM2p9auZBBjKOxSNnGiC5YzZtxKk
P53aL0ApawLa6IiaagYBm2cvnS3bxQHxdxcOHE4nwNdLV5VniANPhBcsnVII
kHCreFCs1wzjelsmZOMIsHfIr/j6jQtST9X+a7xIwNygrXCBbAsMnorRvxVA
QKwTxd3GqAU0VHcv+18ggHXWV7Y6vQXWov83J+9HAM4wiAnd3wo+tP+dtvMh
oCXq7SnBsDY4JMmpPneGgL2PxAXlKe2gtCznMG9OwD+aLS4vtNqhrujexyoz
AlweB9dfcWiH0c97kmmmBCRVjzLfP2yH5oDYaqYxAVOcssF7Fh1g1Jsfc8+Q
gDuvaI/33OiE+S7U4KtDgMhapKPx5m7IMafqfJIj7+Vl56RxrBtExX+I0mTJ
vPo1XMQZ3bBQuGG1eBMBh0oGzg42dEMJ/w3NU5JkjiUZRI1mD7zpuz9YihPw
2Wb2qVlXD7CCMZ4FHgJOPMjsuID1gljKOG3LBBtUrb5MPU/oB3nqsr1kMRtk
w431PfL74eC1z297C9ggVpaXIFzTD0So98nkPDb8othoWo31QzrfBnfBHDb0
cGoujOi9goO5//j1pLEhRCty9ceHV2A0XeAsEMGGLurGjZpoAEbiQ9R/2bMh
qOsAZH1/CwX74tIsBdggzRYf4eUdhZL4MwU8diyoHjPq7D44Bk3PGs8FXa2C
5vO5cg6zE/B0306hb/mPYUHNgFpG/wjSXA3WNm4l8P0sFZNT/QQ1oagnILMC
dNdcqm3KZ6GN0+n/hlMGndHaXa075yC2M9ywfb4UFFNmfpZ8+QpLpXrmNMGH
MLM0OvJK6z+IMD95at/RB1D0qb4dT56HeImXfBbMe4Ar3J+bmPgOtS2mgqs1
RZDoRZzLU1mEPKs4rxNahbCISic8w5dgcbExWyA/HwL2ctlSz3/AwbtGmx4Y
5cFoOTfhpdIv2D90+Sl/Xy4sn+/P3hGyDGXo74M/jbJB3VBo9Vz9CrTaFWur
yt4C4wIlj8fSq5D9766c2K8ZEKTgrPzecQ24ajv3XJG8CRqzJ0QGLHhQ7vyu
w+OeN2AD9SuF+4sHveiOkxpoTAX+puyKrTm8SDzV7w7NJgW8tevfrjfjQxrH
TkqGvkuCUtqZvMZFPlSyLdd6/V8JsDAjKzaZsQ5dd2Z1GRy4DoSN8br0I/wo
p3Xy17jcNQg3ibnLnuRHhJYFKjoeA0rDpm8KYwTQvrz7tTTWVdDfH50us1cQ
OeZt3GcoFwWOm7t/8vYJImHaK9oBTgQstCeNMSOFUK7+9y2Peq9AFr9TgLUK
BUU10Gv3JFyGDSNEAR+XghjCrrme4SEgEBZpe8BvPVKv/Ts0LTgYeEqcKsYk
hFEowav1R2Mg+N+uSJJoFkZp4p2gQ7kIDepxFHGGCGprCNOYD78A4qb+GlG4
KOrbbtvxVMsfhnb19F16KoqizP8Ijxxnwt0Z8bB1TaJo5vny8tAIE86U2Kgl
PRNFpnfqBfT/ZcK0ykBwXqso+itkrOFHDxMW5UYU2npIpwZXxjUyQVx41mPj
B1EUYzEu/98tJhybFFopxzAU9h+D+tGKCeuLaMV6YhiSdTTAL1gwodM1wbJZ
AkNXNzy7xkNjgs0wnv9KGkN9fOVTiogJLv2Sx1aUMJS+N9WaqcmE0OatKTRd
DPVIvzC1E2FC5R1QmXDCUMlS3cKFRF+YD5kXcnXFENYrHbIh2hd07e7PDJ/F
kNTVz2wi1BfqqVTWgCeGDrWsM+Xz9oXWiBHDDn8Mba6Zf1VP84XBM2HOVbEY
CoxSVtOi+MJm2GO0+zqGbti/nvq1xgAXuQ9qjxIwNNNkbPX3EgMKl7KEdyRj
qDbfbpS2woDJPvMvxSkYMvngrSD1nQHbK3l6lW9gyKq9jvfDDAO8E9nE3ZsY
is03SageZ8DXI/Jht25jaPmEdrxrHwP2KfW4SOViaIKT81u/gwGBv68euXEX
QxIHHCSknzNgmZgRSSrCEKfwo9xAFQMEt9XfjijHkKaQUnpgGgNo63yv/K7E
0P2Xnxfd4hmQOKp8JoSFoSN6ZvMnohggnhW/I+AJhg46DLPBnwHy60898WjG
UEF8CNprzQDnD1jOBBdD7N0fbHVMGVDw7Fm4axuGkIHOsv5hBmwL2WF8upOc
X67mp8VeBuyd+fHK8jWGfqc9LkyTYMDFtke1HW8w5BXP1ngozIAnhS65JoMY
+lyxHnH5GGDg+Lfb4XcYslz6yMszT4cIvcsmTWMYGmpMKVeaoUPzRi2Ngx8w
lLjW/v7oOB0Evo1Taz9iSC/4/m2fQTqYvMic1/lE9h/d/+ZmHx3iS8wGqmYx
FHR926Qu3zl4EbNWt3sOQ5tMDj95u+IOYmdYdx59w5DTA5ZXxJI7WB/yiNrx
HUPqbYM/dv7nDjdl5c7dW8TQNTk5t7ez7vBmsYu29SeGdgb2liR8dIe/KnTF
FVYxdBk0G5eH3KH61A+8hwdH5vNFp40H3AEXrBO9ug5HkspRIZkv3cHjcaiw
riCOjvcTm2Y73IHjaECZpuAoOkFL+2irO2yirAnkiODoheF4ewHHHfxYnHXH
cRxti9O59u0MHdqdonj5xHH0cljA9PYpOigLH1ljb8BR4O/++E3WdAghBH57
SOGoYMlAro1Ghz6Xtl+yMjiKv2yRHGxIh+ga08WIzTg6VcmRntCiw6Sb1Wfz
HTi6rFWTOUylwyGxDTNr6jgSChJTKBSiQ2Z9/1SVJo6yNUdCvdd8wETCfmKT
No789Yyf8c/5wMMmp8GJQzhSXbts5tDlAwxZn38u2+JI5cQll+tJPtDasqtt
tx2OnO4ZLYTG+ICi3xx3zAFHMW2hVn5hPtDT5s8xccaRczH3tBvdB/ZevFSz
8TyOHhQ0ZHlb+MBSd2zxo3AcaRwe0sMoPhARkx859BBHr0bVJ7MTvAELEjJ1
LcPRinSekEe0N9z2pEtMVuCoVcUiSDvMG1hmBwrn2DgKZs0ZvGZ4w6T4Sy5f
E45sftT/qWPtDWZ3eCg7+nCU38i81rLFG6RqnJMvLpN5WMXlpVWeh7IphWzc
nIrk5uzmAl97gZU4rtf2i4r+XO3czivlCfECfHJDpM+18gd0SXoC9+fC76+k
bwtwmrJJ644NP5ddpqL94xx7XdKyrLLjDNJRX2dSvDd6wpithYfkChVpL3+Q
eS3hCQFZiRlnf1PRpw3OyaVUTyhLjLgUTHqlle9TMOnJiADHJNISnB3HjpG2
93JUriFteIWX5z3uCQb6GuXCq1SUvTZwSYq04FBHy2PSqk2KsZGingA9TQ9a
SU/ILk1bkg7mshIGSWsXWVnKk/70KNtKYI2KdA+kbKoR8YSuMO9he9Lqh/ex
ZoU9QcjfmUMnrTe6Va6ONDpnUxhFOjk38+o10lWWf3g9Iv01iHJSmfTM4d3m
z0hPpQhw5tZ7gsr+rbtfkxZqidnZQNpJXVpihjRX4vrNeNKZiiILa6TTgqm8
9qT/D4eGbNo=
     "]]}, 
   {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwV1Hk81PkfB3DJZKJm0iHkvrYtqWxRll7fsqXo0uggq1IyaIc2FW2qEToc
W9IQyq2c45ivM0eZ0VJmkLJyVLJWaJVSofh9fn+8H+/H88/36/1+vPXcfHa5
y8vJyd0g9f9u597fXPP25DolFm0he0BDwUbD96W6I87rXl4sJf4pMTahSP0I
GBvnTzQQ92oa8k8b87D9ubNQQmzf2FZ4W90PLFXXjVXEhuFa6VM6AdBeplcp
Iv5mdzjmkPE5uCy9p5pJPBDcKj4k4KNS8atDPPHeI18qo9SDYZ6k6hNGLLbR
KKlNCIWkTIkXQLzCwDr/k84VuMt1bncnTpA/mGmUGgYlxRsqO4iZPUEpe4wj
ccV2bbE5cfmrlsZax2vI0G+30iT23XnEzkVwHQqvAtOnamh0Lb9kE6Eeja/J
ilo1xNGJajVG+2+isETR5DaxHTvLqipBgObmDVr+xMX/PVk9rHMLIu2sjB+I
j7m6Fl46FIfQmK/rvlXT0JcOm+qmxqMiqa5MShyZO3exg/EdvH++fO9vxBu1
0tLeeiSi7+yngLXE5+ri5jxwTMKC9LDz04lXmZtEOAmSYe8Q+dP1KhpJC3aE
XlVPwyuL5PU3Kmn80Rgj3lOeBuVaYeB24j0hr+QN9qfDufnQbUXiWaPHz1ck
ZKBWbsnlE/dp+LdG+w/pZMLxioxlVkGDE95VXFqTiQmJv3dnOQ3TX4xHgw9l
Qa1dlhNM3FtUclwrNRvqaVrd0jIaDjdeeG03zsOJW8FTW0ppmNgbZGo8ykOv
6puQNyUk7+nH/u3zECK2xWzkDPGBssmCasd8TMbtC0wtprHgx2um+wQFGP6x
2a1DRIPPLPrhiroI+8PHb/bl01hie/1yoa8I85kfmBzilhCftx2PRLC/Y69Y
KST3M90k2/QUDUsTp7tX8mjUfU8zbW0pxod/tgUycsi8HwWrdcLLQDEc/rqU
QYNeeVKw+U0Zvu5bubAxnYarL+fLcctymJ0r+MwmFr5jl4n7y1E6NtMzMpXG
rv7LVl4b74O1PNuIl0QjtuuMDT1ZBe9W5t6yWzTWazqlde+uxvBAYHdbLLlX
ZwsGM7caFV6T3z7G0NAeCjicu6wGrJP/yBkJaPh4mhvJddYgSO/fFV5RNOYe
Ed5LX/MQfyQ4x/Gv0tjnlCx8/0EM67HGef3+NIY7HJVSNCTQ1TYKlJ6mEerK
dOfYSKA5/OBFIZm76LCPRnG0BIs5BX4n/WiweNYhf1jUYUnK8xU9PjQkQe3O
MwIfoWKl5xrnozTMclRmaDIbsGlXmu5fDjTqTSUHG1c0oJXRO4u3k8bBAv+K
c04NoCQakyo7aEQUv/R9ndWAvaGlHzhbafTX5HZkbHuMq83vltVsonHn2ZaC
lTeewKTg4jnLn2koT/FdbLVlCPIS1pfrk7w897qabJIhMt87dIke2VeryUEV
ngwCJRkvVofGusy2wx2VMlhXz5LwNGmUZQroEtMmcK7Pv8VQpfGOM3TfXtoE
t7xhXieTxu57MY9PzG7BiIKTz0/vRDBy+K+/NqwVpj97p+bmi6Bx3tbSI7kV
yl1b9YPyRJiTmxSmVNIKoV1XnmOOCONMjqlDTyuePh/79PGuCE01JSe61zxD
1sanOxclinBmBX/y6z/P0D3SYMyKEEHKnj/flGrD4Q16x8I8RDgtXYvYT+0Y
GbHbr7NQhIUile5p017CoL49yMunCMU9Nk9kVj1wk5me+DO1EA+9bi9yGurF
QIt7V0N9AUaNrdm5v/0LryerdAw+5kN+LHvOIqMBrM5a2Wchnw/zqYPFnLwh
fGowfNtmmYcnwaukdUuGkd0Wt3hnQA50rg2OZf73HinNt5/lCrIw+OVl97MV
I0hfElQx1XUPaQMVDazIj8jZoPzWln0XLK27w729n7DHz1IukfyBcE/6aJLh
Z9jZxzOX/52Kz1R2L/f8F9wb9uab2aXAz0wsUq39iq4gce3ZoSS8zBOHNeuN
o9zv4Ie98xIx4dUa/+OZCfhalUg3hCVg6XrFyaMV39D0euABnOJgm6LnUbBw
EpH89WfbDWNxWuuA/muXKeQqv1XhrBPAZGi3cts2Ocqp9wvz15BozGO/Z4rH
5aib44O1Co1RUKiOFxokTKMyXfVuRnGuw3tVRftMe3mqQTc5daT0T2RvcUuq
+ixP7b4WZWOmFoHRQY05fYLplK0eo2RL+1XQHNvp0b8oUEkjmsi4cxnnN4ck
ivoUqDVqAaWxJaHQ67L7OzWEQbk9fOzoMS0ElhbB0epmMyhqBuPYuu0X4aIt
G5v2dAblvHtk8M0LPkYbInp8+YrU6Oe+ZY+9LiBWwdVvlyGT8pQKg20OncO8
bjpFXsyk/nwdcr9l6VkwAvmOa4/PpLiDWhW64wGQy3QV9sxVohZIswWaGv74
PU4YMfehEvWu4OauWutTqFx6manCU6ZOpRxx4EX5QcXud5Mg1iwqoGpzSZTh
CXQua3oacH8WdW0ibL9H6XHk34Fhr+tsSv8p223TBV/8KjRX0ZqcTSl80T9g
/oSHCyHJ/M4sFjW3ejM7I/YYcvu14llb2dSj3W9Uw0RecFBhrXk0zqYu7rl4
ldPMxVWG/KJOYlPdPas0icVjo9/fEx95XNrd28SFeU9XrcYEm/q7etnqU8Qa
Rbk7eMT+H5/1x8q46HHc5rHgG5vyUNP27m7kwi82XHD4O5sqHOF3eDZwkRt+
IcCf2FuyLcaMuO+Cn0sE8bWNmZyJei72ebrolxAn2rKl4cTWliZ5SpNs6gej
mHrhX1zM6HwsKSAubo/uGK3jAk3V9+qIR6qdk6qI/cVFYR3EN9bmu18iHsiJ
d2BMsanIVzNH1Iilgd5d+4iFstMqVhIuFH8/UPMbcbRB+QsFYuooJzWIuON7
WFqjmIvC7T975hCroXvtAeLBDcu3PiCuT3FlLCY2tDBY/pz4QCiv+X0tF65L
F84dJLbsn32njDhGR3l0iri4zso7iPh/6iRxxw==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 4}, {0., 0.08498857878910404}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.564926067953125*^9, {3.564926174640625*^9, 3.5649262023125*^9}, 
   3.564926304234375*^9, {3.56492635921875*^9, 3.564926385484375*^9}, 
   3.564929217859375*^9, 3.565003352171875*^9, 3.565075940515625*^9, 
   3.565349962515625*^9, 3.565454683421875*^9, 3.56553353196875*^9, 
   3.566307582640625*^9, 3.5666217074375*^9, 3.5667434425*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  
  RowBox[{"(*", "  ", 
   RowBox[{"start", " ", "aperture", " ", "stuff"}], "   ", "*)"}]}]], "Input",\

 CellChangeTimes->{{3.560680912859375*^9, 3.560680922578125*^9}, {
   3.5606821936875*^9, 3.560682207296875*^9}, 3.56498715121875*^9, {
   3.56706747171875*^9, 3.567067473375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PlateScDESP", "=", "56.73", "   ", 
  RowBox[{"(*", " ", 
   RowBox[{"um", "/", "arcsec"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.565084404609375*^9, 3.565084444046875*^9}, 
   3.5650847833125*^9}],

Cell[BoxData["56.73`"], "Output",
 CellChangeTimes->{3.565084835828125*^9, 3.56534996328125*^9, 
  3.565454683515625*^9, 3.56553353209375*^9, 3.56630758271875*^9, 
  3.566580571625*^9, 3.56662170759375*^9, 3.56674344271875*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Rsee", "[", 
   RowBox[{"FWHMsite_", ",", "\[Lambda]_", ",", "AM_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"FWHMsite", "/", "2"}], "   ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Lambda]", "/", "500"}], ")"}], "^", 
    RowBox[{"-", "0.2"}]}], "  ", 
   RowBox[{"AM", "^", 
    RowBox[{"(", 
     RowBox[{"3", "/", "5"}], ")"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "median", " ", "HWHM", " ", "seeing", " ", "at", " ", "any", " ", "Air", 
    " ", "Mass", " ", "and", " ", "wavelength"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5485859768698206`*^9, 3.548585980525077*^9}, {
   3.5550468230625*^9, 3.55504689634375*^9}, {3.555046926828125*^9, 
   3.5550469329375*^9}, {3.5550469795625*^9, 3.5550469863125*^9}, {
   3.555047021421875*^9, 3.5550470303125*^9}, {3.555049293953125*^9, 
   3.5550492965625*^9}, {3.55992103646875*^9, 3.559921059546875*^9}, {
   3.559921971109375*^9, 3.559921985203125*^9}, {3.5599646165625*^9, 
   3.559964731265625*^9}, 3.55996478321875*^9, {3.560681095140625*^9, 
   3.560681135125*^9}, {3.562143371578125*^9, 3.5621434038125*^9}, 
   3.5650757438125*^9, 3.565075829328125*^9, {3.565075929140625*^9, 
   3.565076031109375*^9}, {3.56665356725*^9, 3.566653568859375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FWHMCT", "=", "0.75"}]], "Input",
 CellChangeTimes->{{3.562143359578125*^9, 3.56214339121875*^9}, {
  3.565075788359375*^9, 3.56507580028125*^9}, {3.566396314984375*^9, 
  3.566396319703125*^9}}],

Cell[BoxData["0.75`"], "Output",
 CellChangeTimes->{3.562143366359375*^9, 3.562143412140625*^9, 
  3.562351561265625*^9, 3.562354656578125*^9, 3.562465848549881*^9, 
  3.562961662859375*^9, 3.56308664703125*^9, 3.5637279315*^9, 
  3.56382125446875*^9, 3.56383883525*^9, 3.563945786375*^9, 
  3.563985360734375*^9, 3.564021838375*^9, 3.564925407921875*^9, 
  3.564929237875*^9, 3.56500357421875*^9, 3.565075940609375*^9, 
  3.565349963390625*^9, 3.56545468359375*^9, 3.5655335321875*^9, 
  3.56630758275*^9, 3.5665805716875*^9, 3.566621707671875*^9, 
  3.56674344278125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FWHMbyrms", "=", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{"Log", "[", "4.", "]"}], "]"}], " ", "/", " ", 
    RowBox[{"Sqrt", "[", "2", "]"}], "  ", 
    RowBox[{"(*", " ", 
     RowBox[{"FWHM", "=", 
      RowBox[{
      "1.665", " ", "rms", " ", "radius", " ", "for", " ", "Gaussian"}]}], 
     " ", "*)"}]}]}]}]], "Input",
 CellChangeTimes->{{3.5650855321875*^9, 3.56508563996875*^9}}],

Cell[BoxData["1.6651092223153954`"], "Output",
 CellChangeTimes->{{3.56508558903125*^9, 3.5650855943125*^9}, 
   3.565085657078125*^9, 3.5653499635625*^9, 3.565454683640625*^9, 
   3.56553353225*^9, 3.56630758278125*^9, 3.566580571703125*^9, 
   3.56662170775*^9, 3.56674344284375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Relg", "=", "0.29"}], " ", "*)"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "nominal", " ", "ELG", " ", "reff", " ", "val", " ", "at", " ", "i"}], 
     "=", "23.5"}], ",", " ", 
    RowBox[{
     RowBox[{"SK", "'"}], "s", " ", "formula"}]}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.5485213249326625`*^9, 3.548521328627976*^9}, {
   3.5503844733289747`*^9, 3.550384475351883*^9}, {3.55504714909375*^9, 
   3.555047164890625*^9}, {3.55541225896875*^9, 3.5554122804375*^9}, {
   3.5599212124375*^9, 3.559921217296875*^9}, {3.559968751296875*^9, 
   3.5599687768125*^9}, 3.565075296640625*^9, {3.5666529323125*^9, 
   3.56665294178125*^9}, 3.56665298325*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Relgmax", "=", "0.375"}], " ", "*)"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Steve", "'"}], "s", " ", "cut"}], ",", " ", 
    RowBox[{
     RowBox[{"rescaled", " ", "to", " ", "i"}], "=", "23.5"}]}], " ", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.560156451796875*^9, 3.560156472078125*^9}, {
   3.563838779671875*^9, 3.563838795671875*^9}, 3.56507529665625*^9, {
   3.56665296484375*^9, 3.56665298340625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Relg", "=", "0.4", " ", 
  RowBox[{"(*", " ", 
   RowBox[{"agrees", " ", "better", " ", "with", " ", 
    RowBox[{"Steph", "'"}], "s", " ", "target", " ", "list"}], " ", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.5485213249326625`*^9, 3.548521328627976*^9}, {
   3.5503844733289747`*^9, 3.550384475351883*^9}, {3.55504714909375*^9, 
   3.555047164890625*^9}, {3.55541225896875*^9, 3.5554122804375*^9}, {
   3.5599212124375*^9, 3.559921217296875*^9}, {3.559968751296875*^9, 
   3.5599687768125*^9}, 3.565075296640625*^9, {3.5666529323125*^9, 
   3.56665294178125*^9}, {3.56665298325*^9, 3.566653035328125*^9}, {
   3.566653174484375*^9, 3.566653175359375*^9}}],

Cell[BoxData["0.4`"], "Output",
 CellChangeTimes->{3.566653232*^9, 3.566743442953125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Relgmax", "=", "0.5", " ", 
  RowBox[{"(*", " ", 
   RowBox[{"so", " ", "quite", " ", "tightly", " ", "trimmed"}], " ", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.560156451796875*^9, 3.560156472078125*^9}, {
   3.563838779671875*^9, 3.563838795671875*^9}, 3.56507529665625*^9, {
   3.56665296484375*^9, 3.56665298340625*^9}, {3.566653049328125*^9, 
   3.566653068703125*^9}, {3.566653213125*^9, 3.56665321828125*^9}}],

Cell[BoxData["0.5`"], "Output",
 CellChangeTimes->{3.566653232234375*^9, 3.5667434430625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Rlrg", "=", "0.35"}]], "Input",
 CellChangeTimes->{{3.565084876703125*^9, 3.565084882890625*^9}, {
  3.565349861828125*^9, 3.565349865671875*^9}}],

Cell[BoxData["0.35`"], "Output",
 CellChangeTimes->{3.56508488396875*^9, 3.56534986915625*^9, 
  3.565349964125*^9, 3.565356704390625*^9, 3.565454683828125*^9, 
  3.565533532421875*^9, 3.566307582859375*^9, 3.566580571796875*^9, 
  3.56662170796875*^9, 3.566743443125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Rlrgmax", "=", "0.5"}]], "Input",
 CellChangeTimes->{{3.565084876703125*^9, 3.565084882890625*^9}, {
  3.565349861828125*^9, 3.565349865671875*^9}, {3.565356696078125*^9, 
  3.565356708140625*^9}}],

Cell[BoxData["0.5`"], "Output",
 CellChangeTimes->{{3.56535669915625*^9, 3.565356710953125*^9}, 
   3.565454683890625*^9, 3.56553353246875*^9, 3.566307582890625*^9, 
   3.566580571828125*^9, 3.56662170803125*^9, 3.566743443203125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Rrmsfix", "=", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"16.5", "^", "2"}], " ", "-", " ", 
      RowBox[{"9.3", "^", "2"}], "-", 
      RowBox[{"10", "^", "2"}], " ", "-", 
      RowBox[{"1", "^", "2"}]}], "]"}]}], " ", "*)"}], 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"SK", "'"}], "s", " ", "UCL", " ", "meeting", " ", "numbers"}], 
   " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.561791333875*^9, 3.5617913800625*^9}, 
   3.562351503484375*^9, {3.562354611375*^9, 3.562354612421875*^9}, {
   3.56374074803125*^9, 3.563740752*^9}, {3.56544899853125*^9, 
   3.565449013625*^9}, {3.56665203503125*^9, 3.5666520458125*^9}, {
   3.56665253190625*^9, 3.566652532484375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FWHMfixDS", "=", "0.5"}]], "Input",
 CellChangeTimes->{{3.56680505634375*^9, 3.566805076625*^9}}],

Cell[BoxData["0.5`"], "Output",
 CellChangeTimes->{3.566805078171875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Rrmsfix", "=", 
  RowBox[{"FWHMfixDS", "*", 
   RowBox[{"PlateScDESP", " ", "/", "FWHMbyrms", " ", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{
      "Everything", " ", "except", " ", "atmospheric", " ", "seeing", " ", 
       "and", " ", "zemax", " ", "spot", " ", 
       RowBox[{"size", ".", " ", "Includes"}], " ", "guiding", " ", 
       "errors"}], ",", " ", 
      RowBox[{
       RowBox[{"dome", "/", "mirror"}], " ", "seeing"}], ",", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"imperfect", " ", "optics", " ", 
         RowBox[{"etc", ".", " ", "Gives"}], " ", "i"}], "-", 
        RowBox[{"band", " ", "median", " ", "zenith", " ", "DIQ"}]}], " ", 
       "=", " ", 
       RowBox[{"0.9", "\"\< with DECam \>"}]}]}], "*)"}]}]}]}]], "Input",
 CellChangeTimes->{{3.561791333875*^9, 3.5617913800625*^9}, 
   3.562351503484375*^9, {3.562354611375*^9, 3.562354612421875*^9}, {
   3.56374074803125*^9, 3.563740752*^9}, {3.56544899853125*^9, 
   3.565449013625*^9}, {3.566651991203125*^9, 3.566651994984375*^9}, {
   3.566652510328125*^9, 3.5666526226875*^9}, {3.566652744765625*^9, 
   3.5666528674375*^9}, {3.56665375621875*^9, 3.566653757484375*^9}, {
   3.566805086734375*^9, 3.56680508875*^9}}],

Cell[BoxData["17.034918562613825`"], "Output",
 CellChangeTimes->{
  3.56179138415625*^9, 3.561982549828125*^9, 3.56204631346875*^9, 
   3.56206846809375*^9, 3.562351562*^9, 3.562354614015625*^9, 
   3.562354656703125*^9, 3.562465848596756*^9, 3.562961662953125*^9, 
   3.56308664709375*^9, 3.563727931609375*^9, 3.56374075328125*^9, 
   3.5638212545625*^9, 3.56383883534375*^9, 3.563945786421875*^9, 
   3.563985360984375*^9, 3.564021838421875*^9, 3.56492540846875*^9, 
   3.56492923803125*^9, 3.565003574453125*^9, 3.565349964546875*^9, 
   3.565454683953125*^9, 3.56553353253125*^9, 3.56630758290625*^9, 
   3.5665805719375*^9, 3.566621708109375*^9, {3.566652614375*^9, 
   3.56665262421875*^9}, 3.56665286934375*^9, 3.56665375940625*^9, 
   3.56674344328125*^9, 3.5668051051875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DefocMH", "=", "20"}]], "Input",
 CellChangeTimes->{{3.566805142671875*^9, 3.56680517840625*^9}}],

Cell[BoxData["20"], "Output",
 CellChangeTimes->{3.566805181765625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ApEta", "[", 
   RowBox[{"Rseehm_", ",", "RE_", ",", "RV_", ",", "Rrmstot_", ",", "RAp_"}], 
   "]"}], ":=", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{
    RowBox[{"2", " ", "Pi", " ", "r", " ", 
     RowBox[{"MoffM2", "[", 
      RowBox[{"r", ",", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"MMEVG2", "[", 
         RowBox[{"Rseehm", ",", "RE", ",", "RV", ",", 
          RowBox[{"Rrmstot", "/", "PlateScDESP"}]}], "]"}], "]"}], ",", 
       RowBox[{"BetaMEVG0", "[", 
        RowBox[{"Rseehm", ",", "RE", ",", "RV", ",", 
         RowBox[{"Rrmstot", "/", "PlateScDESP"}]}], "]"}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "RAp"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.561790025390625*^9, 3.56179002653125*^9}, {
   3.561790070515625*^9, 3.561790168640625*^9}, {3.5617905983125*^9, 
   3.5617906310625*^9}, {3.5617907520625*^9, 3.561790754203125*^9}, {
   3.56179081953125*^9, 3.561790828484375*^9}, {3.561790923953125*^9, 
   3.56179095071875*^9}, {3.565003627265625*^9, 3.56500363546875*^9}, {
   3.565006714578125*^9, 3.565006715859375*^9}, {3.56507311421875*^9, 
   3.565073133328125*^9}, 3.56507539440625*^9, {3.56508449365625*^9, 
   3.56508450121875*^9}, {3.5650847833125*^9, 3.5650847833125*^9}, {
   3.565086140375*^9, 3.565086140375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ApEtavsrms", "[", "rms_", "]"}], ":=", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{
    RowBox[{"2", " ", "Pi", " ", "r", " ", 
     RowBox[{"MoffM2", "[", 
      RowBox[{"r", ",", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"MMEVG2", "[", 
         RowBox[{
          RowBox[{"Rsee", "[", 
           RowBox[{"FWHMCT", ",", "850", ",", "1"}], "]"}], ",", "Relg", ",", 
          "0", ",", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{
             RowBox[{"Rrmsfix", "^", "2"}], "+", 
             RowBox[{"rms", "^", "2"}]}], "]"}], "/", "PlateScDESP"}]}], 
         "]"}], "]"}], ",", 
       RowBox[{"BetaMEVG0", "[", 
        RowBox[{
         RowBox[{"Rsee", "[", 
          RowBox[{"FWHMCT", ",", "850", ",", "1"}], "]"}], ",", "Relg", ",", 
         "0", ",", 
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{
            RowBox[{"Rrmsfix", "^", "2"}], "+", 
            RowBox[{"rms", "^", "2"}]}], "]"}], "/", "PlateScDESP"}]}], 
        "]"}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", 
      RowBox[{"1.8", "/", "2"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.55504988059375*^9, 3.555049882484375*^9}, {
   3.555049932875*^9, 3.555049933484375*^9}, {3.555050087921875*^9, 
   3.555050099375*^9}, {3.555051252640625*^9, 3.555051266875*^9}, {
   3.5592953664375*^9, 3.559295381703125*^9}, {3.5592954185625*^9, 
   3.559295544328125*^9}, {3.559295589109375*^9, 3.559295597921875*^9}, {
   3.55992225578125*^9, 3.559922338203125*^9}, {3.559922391421875*^9, 
   3.559922404609375*^9}, {3.55996483903125*^9, 3.55996484146875*^9}, 
   3.5599700621875*^9, {3.560754499375*^9, 3.560754500203125*^9}, {
   3.56075454334375*^9, 3.560754687078125*^9}, {3.56075482796875*^9, 
   3.560754898046875*^9}, {3.5607550179375*^9, 3.56075502290625*^9}, {
   3.56075536178125*^9, 3.560755386296875*^9}, {3.560755421734375*^9, 
   3.560755456875*^9}, 3.560755612421875*^9, {3.56112915796875*^9, 
   3.561129161078125*^9}, {3.561129450921875*^9, 3.56112945603125*^9}, {
   3.561129509375*^9, 3.561129509921875*^9}, {3.56112965396875*^9, 
   3.56112966465625*^9}, {3.561790840625*^9, 3.5617908484375*^9}, {
   3.562351506609375*^9, 3.562351507671875*^9}, {3.565003641875*^9, 
   3.5650036733125*^9}, {3.56507529665625*^9, 3.565075296671875*^9}, 
   3.56507539440625*^9, {3.565075743828125*^9, 3.565075743828125*^9}, {
   3.565075829328125*^9, 3.56507582934375*^9}, {3.565084503984375*^9, 
   3.565084506078125*^9}, {3.565084783328125*^9, 3.565084783328125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"ApEtavsrms", "[", "rms", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"rms", ",", "10", ",", "30"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"rms", " ", 
       RowBox[{"(", "\[Mu]m", ")"}]}], ",", "\[Eta]"}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.559295553765625*^9, 3.5592955559375*^9}, {
   3.559295610890625*^9, 3.55929563959375*^9}, {3.560754856671875*^9, 
   3.560754857015625*^9}, {3.561790853140625*^9, 3.561790855234375*^9}, 
   3.562068862234375*^9, 3.5620689285625*^9, 3.565075394421875*^9, {
   3.56630789815625*^9, 3.566307910546875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{10.000001052631578`, 0.6750183406617015}, {11.012425683026304`, 
     0.67160538981907}, {12.110009997039445`, 0.667606512765494}, {
     13.134859257828897`, 0.6635335452854733}, {14.139605044342026`, 
     0.6592475189626554}, {15.229510514473573`, 0.6543141838026089}, {
     16.246680931381427`, 0.6494125439468117}, {17.3490110319077, 
     0.643852976739269}, {18.431237658157652`, 0.6381295993485018}, {
     19.440729231183916`, 0.6325644678794998}, {20.535380487828593`, 
     0.6263009003784178}, {21.557296691249583`, 0.6202408680660809}, {
     22.55910942039425, 0.6141642517010039}, {23.646081833157332`, 
     0.6073768492402806}, {24.660319192696726`, 0.6008222105096429}, {
     25.759716235854533`, 0.5935936522986218}, {26.83900980473602, 
     0.5863770795208073}, {27.845568320393816`, 0.5795090652364773}, {
     28.937286519670028`, 0.5719574851578209}, {29.95626966572255, 
     0.5647933951668658}, {29.99999894736842, 0.5645074387195076}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox[
     RowBox[{"rms", " ", "\[Mu]m"}], TraditionalForm], 
    FormBox["\[Eta]", TraditionalForm]},
  AxesOrigin->{10., 0.58},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{10, 30}, {0.5645074387195076, 0.6750183406617015}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.566308021265625*^9, 3.566621710921875*^9, 
  3.56665270915625*^9, 3.56665326878125*^9, 3.56665377459375*^9, 
  3.5667434466875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"AMloss", "[", "\[Lambda]_", "]"}], ":=", 
  RowBox[{"Switch", "[", 
   RowBox[{
   "\[Lambda]", ",", "\[IndentingNewLine]", "350", ",", "0.595", ",", 
    "\[IndentingNewLine]", "370", ",", "0.614", ",", "\[IndentingNewLine]", 
    "400", ",", "0.679", ",", "\[IndentingNewLine]", "450", ",", "0.770", ",",
     "\[IndentingNewLine]", "500", ",", "0.824", ",", "\[IndentingNewLine]", 
    "550", ",", "0.846", ",", "\[IndentingNewLine]", "600", ",", "0.855", ",",
     "\[IndentingNewLine]", "650", ",", "0.883", ",", "\[IndentingNewLine]", 
    "700", ",", "0.917", ",", "\[IndentingNewLine]", "750", ",", "0.943", ",",
     "\[IndentingNewLine]", "800", ",", "0.963", ",", "\[IndentingNewLine]", 
    "850", ",", "0.976", ",", "\[IndentingNewLine]", "900", ",", "0.985", ",",
     "\[IndentingNewLine]", "950", ",", "0.991", ",", "\[IndentingNewLine]", 
    "1000", ",", "0.993"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.559231316546875*^9, 3.55923140784375*^9}, {
  3.559231925328125*^9, 3.559231999671875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SNrms", "[", 
   RowBox[{"\[Lambda]_", ",", "dfib_", ",", "Rg_", ",", "AM_", ",", "Rrms_"}],
    "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"AMloss", "[", "\[Lambda]", "]"}], "^", "AM"}], " ", 
   RowBox[{
    RowBox[{"NIntegrate", "[", " ", 
     RowBox[{
      RowBox[{"2", "  ", "Pi", " ", "r", " ", 
       RowBox[{"MoffM2", "[", 
        RowBox[{"r", ",", 
         RowBox[{"Sqrt", "[", 
          RowBox[{"MMEVG2", "[", 
           RowBox[{
            RowBox[{"Rsee", "[", 
             RowBox[{"FWHMCT", ",", "\[Lambda]", ",", "AM"}], "]"}], ",", 
            "Rg", ",", "0", ",", 
            RowBox[{
             RowBox[{"Sqrt", "[", 
              RowBox[{
               RowBox[{"Rrmsfix", "^", "2"}], "+", 
               RowBox[{"Rrms", "^", "2"}]}], "]"}], "/", "PlateScDESP"}]}], 
           "]"}], "]"}], ",", 
         RowBox[{"BetaMEVG0", "[", 
          RowBox[{
           RowBox[{"Rsee", "[", 
            RowBox[{"FWHMCT", ",", "\[Lambda]", ",", "AM"}], "]"}], ",", "Rg",
            ",", "0", ",", 
           RowBox[{
            RowBox[{"Sqrt", "[", 
             RowBox[{
              RowBox[{"Rrmsfix", "^", "2"}], "+", 
              RowBox[{"Rrms", "^", "2"}]}], "]"}], "/", "PlateScDESP"}]}], 
          "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", "0", ",", 
        RowBox[{"dfib", "/", "2"}]}], "}"}]}], "]"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Sqrt", "[", "AM", "]"}], " ", "dfib"}], ")"}], 
    "                  ", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"S", "/", "N"}], " ", "ratio"}], ",", " ", 
      RowBox[{
       RowBox[{"assumes", " ", "sky"}], "-", "limited"}]}], " ", 
     "*)"}]}]}]}]], "Input",
 CellChangeTimes->{{3.555050136703125*^9, 3.5550502555*^9}, {
   3.55505030340625*^9, 3.555050315109375*^9}, {3.555050443125*^9, 
   3.55505048015625*^9}, {3.555051500265625*^9, 3.555051529234375*^9}, {
   3.555051589640625*^9, 3.55505160484375*^9}, {3.559921476890625*^9, 
   3.55992150384375*^9}, {3.560156807328125*^9, 3.5601568129375*^9}, {
   3.56015684421875*^9, 3.5601568544375*^9}, {3.56068187153125*^9, 
   3.560681947765625*^9}, 3.560690346703125*^9, {3.56075583040625*^9, 
   3.56075585928125*^9}, {3.56079271296875*^9, 3.560792752296875*^9}, {
   3.560792815625*^9, 3.560792819046875*^9}, {3.56079286734375*^9, 
   3.560792868140625*^9}, {3.561129117359375*^9, 3.56112912965625*^9}, {
   3.56112923796875*^9, 3.561129240875*^9}, {3.561129367109375*^9, 
   3.561129367546875*^9}, {3.561129856421875*^9, 3.56112993059375*^9}, {
   3.56112998384375*^9, 3.56113001575*^9}, {3.561130094953125*^9, 
   3.56113011196875*^9}, {3.561130373375*^9, 3.561130386390625*^9}, {
   3.561130609765625*^9, 3.5611306154375*^9}, {3.562351508390625*^9, 
   3.5623515090625*^9}, {3.565003504578125*^9, 3.565003538515625*^9}, {
   3.565075743828125*^9, 3.565075744015625*^9}, {3.56507582934375*^9, 
   3.56507582934375*^9}, {3.565084508796875*^9, 3.565084511140625*^9}, {
   3.565084783328125*^9, 3.56508478334375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"SNrms", "[", 
    RowBox[{"850", ",", "1.8", ",", "Relg", ",", "1.0", ",", "Rrms"}], "]"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"Rrms", ",", "10", ",", "30"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"rms", " ", 
       RowBox[{"(", "\[Mu]m", ")"}]}], ",", "\"\<S/N\>\""}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.56112943346875*^9, 3.561129445*^9}, 
   3.5611299475625*^9, {3.561130135078125*^9, 3.56113019715625*^9}, {
   3.5611302545*^9, 3.561130323609375*^9}, {3.56113097028125*^9, 
   3.561130976078125*^9}, 3.562068951703125*^9, {3.56206900175*^9, 
   3.56206902975*^9}, 3.565075296671875*^9, 3.566307945109375*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{10.000001052631578`, 0.36600994471434484`}, {
     11.012425683026304`, 0.364159366924118}, {12.110009997039445`, 
     0.3619910869217345}, {13.134859257828897`, 0.35978263344367883`}, {
     14.139605044342026`, 0.35745865472641764`}, {15.229510514473573`, 
     0.3547836907729702}, {16.246680931381427`, 0.3521259127178268}, {
     17.3490110319077, 0.3491113918319592}, {18.431237658157652`, 
     0.34600804942452096`}, {19.440729231183916`, 0.3429905114724399}, {
     20.535380487828593`, 0.3395942659829643}, {21.557296691249583`, 
     0.33630838179583056`}, {22.55910942039425, 0.33301350536676655`}, {
     23.646081833157332`, 0.3293332249213966}, {24.660319192696726`, 
     0.3257791541430064}, {25.759716235854533`, 0.32185966924636383`}, {
     26.83900980473602, 0.3179466831179488}, {27.845568320393816`, 
     0.3142226931504455}, {28.937286519670028`, 0.31012805861890735`}, {
     29.95626966572255, 0.30624352982381164`}, {29.99999894736842, 
     0.3060884778834663}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox[
     RowBox[{"rms", " ", "\[Mu]m"}], TraditionalForm], 
    FormBox["\"S/N\"", TraditionalForm]},
  AxesOrigin->{10., 0.31},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{10, 30}, {0.3060884778834663, 0.36600994471434484`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.566307776921875*^9, 3.5663079499375*^9, 3.566621714*^9, 
  3.566653284890625*^9, 3.5666537836875*^9, 3.566743450078125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"SNrms", "[", 
      RowBox[{"850", ",", "1.5", ",", "Relg", ",", "1.0", ",", "Rrms"}], 
      "]"}], ",", 
     RowBox[{"SNrms", "[", 
      RowBox[{"850", ",", "1.6", ",", "Relg", ",", "1.0", ",", "Rrms"}], 
      "]"}], ",", 
     RowBox[{"SNrms", "[", 
      RowBox[{"850", ",", "1.7", ",", "Relg", ",", "1.0", ",", "Rrms"}], 
      "]"}], ",", 
     RowBox[{"SNrms", "[", 
      RowBox[{"850", ",", "1.8", ",", "Relg", ",", "1.0", ",", "Rrms"}], 
      "]"}], ",", 
     RowBox[{"SNrms", "[", 
      RowBox[{"850", ",", "1.9", ",", "Relg", ",", "1.0", ",", "Rrms"}], 
      "]"}], ",", 
     RowBox[{"SNrms", "[", 
      RowBox[{"850", ",", "2.0", ",", "Relg", ",", "1.0", ",", "Rrms"}], 
      "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"Rrms", ",", "10", ",", "30"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"rms", " ", 
       RowBox[{"(", "\[Mu]m", ")"}]}], ",", "\"\<S/N\>\""}], "}"}]}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.56112943346875*^9, 3.561129445*^9}, 
   3.5611299475625*^9, {3.561130135078125*^9, 3.56113019715625*^9}, {
   3.5611302545*^9, 3.561130323609375*^9}, {3.56113066265625*^9, 
   3.5611306744375*^9}, {3.56113070915625*^9, 3.5611308186875*^9}, {
   3.56113108290625*^9, 3.56113108425*^9}, 3.562068962078125*^9, {
   3.562069009984375*^9, 3.56206901184375*^9}, 3.562069065296875*^9, {
   3.5650752966875*^9, 3.565075296703125*^9}, {3.56706790884375*^9, 
   3.567067926921875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{10.000001052631578`, 0.36053894473335707`}, {
     11.012425683026304`, 0.3581593297141468}, {12.110009997039445`, 
     0.3553908933419982}, {13.134859257828897`, 0.35258300651866786`}, {
     14.139605044342026`, 0.34964387059124}, {15.229510514473573`, 
     0.3462846381615757}, {16.246680931381427`, 0.3429662752388378}, {
     17.3490110319077, 0.33923321824588326`}, {18.431237658157652`, 
     0.3354194315011288}, {19.440729231183916`, 0.33173843657903357`}, {
     20.535380487828593`, 0.3276271751138307}, {21.557296691249583`, 
     0.32367926652164547`}, {22.55910942039425, 0.31975452227225193`}, {
     23.646081833157332`, 0.3154032081726135}, {24.660319192696726`, 
     0.3112274161940525}, {25.759716235854533`, 0.3066621548296429}, {
     26.83900980473602, 0.3021434628472522}, {27.845568320393816`, 
     0.29787364352107404`}, {28.937286519670028`, 0.2932154552652867}, {
     29.95626966572255, 0.28882758381227075`}, {29.99999894736842, 
     0.28865518467859264`}}]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Large], 
    LineBox[{{10.000001052631578`, 0.3642121111127986}, {11.012425683026304`, 
     0.36200208659402755`}, {12.110009997039445`, 0.3594250178705875}, {
     13.134859257828897`, 0.3568074923308056}, {14.139605044342026`, 
     0.3540627752743979}, {15.229510514473573`, 0.3509184889299035}, {
     16.246680931381427`, 0.3478064614557674}, {17.3490110319077, 
     0.3442961711128277}, {18.431237658157652`, 0.3407009798026526}, {
     19.440729231183916`, 0.33722255471049895`}, {20.535380487828593`, 
     0.33332778437047794`}, {21.557296691249583`, 0.3295785758304045}, {
     22.55910942039425, 0.32584096429412435`}, {23.646081833157332`, 
     0.32168706307056616`}, {24.660319192696726`, 0.3176924853817644}, {
     25.759716235854533`, 0.3133130596862512}, {26.83900980473602, 
     0.3089662619899621}, {27.845568320393816`, 0.30484933891625315`}, {
     28.937286519670028`, 0.3003465987496442}, {29.95626966572255, 
     0.2960953945571794}, {29.99999894736842, 0.2959275348897161}}]}, 
   {Hue[0.14213595499957954`, 0.6, 0.6], Thickness[Large], 
    LineBox[{{10.000001052631578`, 0.36595895404715967`}, {
     11.012425683026304`, 0.36392716187845975`}, {12.110009997039445`, 
     0.3615523128309407}, {13.134859257828897`, 0.3591367847568217}, {
     14.139605044342026`, 0.3565993878950595}, {15.229510514473573`, 
     0.3536857451619339}, {16.246680931381427`, 0.35079640558522873`}, {
     17.3490110319077, 0.3475283749409982}, {18.431237658157652`, 
     0.3441727492333414}, {19.440729231183916`, 0.34091807582109196`}, {
     20.535380487828593`, 0.3372644790700827}, {21.557296691249583`, 
     0.333738600735289}, {22.55910942039425, 0.33021350417654244`}, {
     23.646081833157332`, 0.3262860384646557}, {24.660319192696726`, 
     0.3225012814467494}, {25.759716235854533`, 0.31833983158443463`}, {
     26.83900980473602, 0.31419752071622675`}, {27.845568320393816`, 
     0.31026489913990757`}, {28.937286519670028`, 0.30595248088451127`}, {
     29.95626966572255, 0.30187129567273924`}, {29.99999894736842, 
     0.3017092987740464}}]}, 
   {Hue[0.37820393249936934`, 0.6, 0.6], Thickness[Large], 
    LineBox[{{10.000001052631578`, 0.36600994471434484`}, {
     11.012425683026304`, 0.364159366924118}, {12.110009997039445`, 
     0.3619910869217345}, {13.134859257828897`, 0.35978263344367883`}, {
     14.139605044342026`, 0.35745865472641764`}, {15.229510514473573`, 
     0.3547836907729702}, {16.246680931381427`, 0.3521259127178268}, {
     17.3490110319077, 0.3491113918319592}, {18.431237658157652`, 
     0.34600804942452096`}, {19.440729231183916`, 0.3429905114724399}, {
     20.535380487828593`, 0.3395942659829643}, {21.557296691249583`, 
     0.33630838179583056`}, {22.55910942039425, 0.33301350536676655`}, {
     23.646081833157332`, 0.3293332249213966}, {24.660319192696726`, 
     0.3257791541430064}, {25.759716235854533`, 0.32185966924636383`}, {
     26.83900980473602, 0.3179466831179488}, {27.845568320393816`, 
     0.3142226931504455}, {28.937286519670028`, 0.31012805861890735`}, {
     29.95626966572255, 0.30624352982381164`}, {29.99999894736842, 
     0.3060884778834663}}]}, 
   {Hue[0.6142719099991583, 0.6, 0.6], Thickness[Large], 
    LineBox[{{10.000001052631578`, 0.36459059740762}, {11.012425683026304`, 
     0.36291950803325884`}, {12.110009997039445`, 0.36095669118484414`}, {
     13.134859257828897`, 0.3589548488198388}, {14.139605044342026`, 
     0.3568445957382477}, {15.229510514473573`, 0.354409766774318}, {
     16.246680931381427`, 0.3519859503113496}, {17.3490110319077, 
     0.349228986204362}, {18.431237658157652`, 0.3463833665099703}, {
     19.440729231183916`, 0.3436094091807419}, {20.535380487828593`, 
     0.3404790570517155}, {21.557296691249583`, 0.33744261550025106`}, {
     22.55910942039425, 0.334388646924134}, {23.646081833157332`, 
     0.3309686749459143}, {24.660319192696726`, 0.32765896355144913`}, {
     25.759716235854533`, 0.32399778920832994`}, {26.83900980473602, 
     0.32033162708425283`}, {27.845568320393816`, 0.3168338489696141}, {
     28.937286519670028`, 0.3129773288074867}, {29.95626966572255, 
     0.3093095820433075}, {29.99999894736842, 0.309162320620441}}]}, 
   {Hue[0.8503398874989481, 0.6, 0.6], Thickness[Large], 
    LineBox[{{10.000001052631578`, 0.36191639219979466`}, {
     11.012425683026304`, 0.3604193144014502}, {12.110009997039445`, 
     0.3586564646113547}, {13.134859257828897`, 0.35685627553018445`}, {
     14.139605044342026`, 0.3549553177490373}, {15.229510514473573`, 
     0.35275664263429374`}, {16.246680931381427`, 0.35056378857610615`}, {
     17.3490110319077, 0.3480623558798529}, {18.431237658157652`, 
     0.3454736989828068}, {19.440729231183916`, 0.3429437994242357}, {
     20.535380487828593`, 0.34008125044404425`}, {21.557296691249583`, 
     0.33729737224182926`}, {22.55910942039425, 0.3344887839018568}, {
     23.646081833157332`, 0.33133542701887564`}, {24.660319192696726`, 
     0.3282772658830669}, {25.759716235854533`, 0.3248837914196362}, {
     26.83900980473602, 0.321475209312894}, {27.845568320393816`, 
     0.3182149687904634}, {28.937286519670028`, 0.31461022789147297`}, {
     29.95626966572255, 0.31117325175765587`}, {29.99999894736842, 
     0.3110344006437024}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox[
     RowBox[{"rms", " ", "\[Mu]m"}], TraditionalForm], 
    FormBox["\"S/N\"", TraditionalForm]},
  AxesOrigin->{10., 0.29},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{10, 30}, {0.28865518467859264`, 0.36600994471434484`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.56665373615625*^9, 3.566654208734375*^9, 3.566743690015625*^9, {
   3.56706792046875*^9, 3.567067946171875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"SNrms", "[", 
      RowBox[{"850", ",", "dfib", ",", "Relg", ",", "1.0", ",", "10"}], "]"}],
      ",", 
     RowBox[{"SNrms", "[", 
      RowBox[{"850", ",", "dfib", ",", "Relg", ",", "1.0", ",", "15"}], "]"}],
      ",", 
     RowBox[{"SNrms", "[", 
      RowBox[{"850", ",", "dfib", ",", "Relg", ",", "1.0", ",", "20"}], "]"}],
      ",", 
     RowBox[{"SNrms", "[", 
      RowBox[{"850", ",", "dfib", ",", "Relg", ",", "1.0", ",", "25"}], "]"}],
      ",", 
     RowBox[{"SNrms", "[", 
      RowBox[{"850", ",", "dfib", ",", "Relg", ",", "1.0", ",", "30"}], 
      "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"dfib", ",", "1.5", ",", "2.25"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"diam", ",", "\"\<S/N\>\""}], "}"}]}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.56112943346875*^9, 3.561129445*^9}, 
   3.5611299475625*^9, {3.561130135078125*^9, 3.56113019715625*^9}, {
   3.5611302545*^9, 3.561130323609375*^9}, {3.56113066265625*^9, 
   3.5611306744375*^9}, {3.56113070915625*^9, 3.5611308186875*^9}, {
   3.56113108290625*^9, 3.56113108425*^9}, {3.561131130515625*^9, 
   3.5611312246875*^9}, {3.56507529671875*^9, 3.56507529671875*^9}, {
   3.566309155515625*^9, 3.566309184921875*^9}, {3.56680293415625*^9, 
   3.56680293484375*^9}, {3.567067940703125*^9, 3.5670679465625*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000394736843`, 0.36053894896476596`}, {
     1.5379659631134865`, 0.36217502082339637`}, {1.5791253748889793`, 
     0.3636121285365064}, {1.6175572221685837`, 0.3646516682661251}, {
     1.655235189162826, 0.3654003442258952}, {1.696106644292759, 
     0.36592415775236325`}, {1.7342505349268036`, 0.3661558472082852}, {
     1.7755879136965387`, 0.3661416498843745}, {1.8161714121809118`, 
     0.3658742800376609}, {1.8540273461693966`, 0.3654116875550678}, {
     1.8950767682935719`, 0.36469155980673473`}, {1.933398625921859, 
     0.36382672738989597`}, {1.970966603264784, 0.36280994774860376`}, {
     2.0117280687433996`, 0.36153003213948837`}, {2.0497619697261267`, 
     0.36018126219455904`}, {2.0909893588445443`, 0.3585631304819822}, {
     2.1314628676776, 0.3568286238029646}, {2.1692088120147672`, 
     0.35509097181724686`}, {2.210148244487625, 0.3530860781597921}, {
     2.2483601124645944`, 0.351111347118382}, {2.2499999605263157`, 
     0.35102450450374845`}}]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000394736843`, 0.34700733995083977`}, {
     1.5379659631134865`, 0.34898199017970766`}, {1.5791253748889793`, 
     0.3507987646080551}, {1.6175572221685837`, 0.3522025155983298}, {
     1.655235189162826, 0.3533154497860832}, {1.696106644292759, 
     0.35424042974958764`}, {1.7342505349268036`, 0.3548503993172008}, {
     1.7755879136965387`, 0.3552485155965976}, {1.8161714121809118`, 
     0.3553865750447276}, {1.8540273461693966`, 0.3553012846037849}, {
     1.8950767682935719`, 0.35498788643863927`}, {1.933398625921859, 
     0.3544992913942913}, {1.970966603264784, 0.3538470708855845}, {
     2.0117280687433996`, 0.35295688414015297`}, {2.0497619697261267`, 
     0.351965441212513}, {2.0909893588445443`, 0.3507268922985172}, {
     2.1314628676776, 0.3493564407308661}, {2.1692088120147672`, 
     0.34795007132850736`}, {2.210148244487625, 0.346294976165201}, {
     2.2483601124645944`, 0.34463740891228095`}, {2.2499999605263157`, 
     0.34456397061874416`}}]}, 
   {Hue[0.14213595499957954`, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000394736843`, 0.3296531277518425}, {1.5379659631134865`, 
     0.3319964685748365}, {1.5791253748889793`, 0.33423224885521813`}, {
     1.6175572221685837`, 0.3360428925293276}, {1.655235189162826, 
     0.3375671741043523}, {1.696106644292759, 0.3389498863118995}, {
     1.7342505349268036`, 0.3399957039752613}, {1.7755879136965387`, 
     0.34087330128981796`}, {1.8161714121809118`, 0.3414871316738679}, {
     1.8540273461693966`, 0.3418482948557426}, {1.8950767682935719`, 
     0.34202004513031475`}, {1.933398625921859, 0.3419837323535592}, {
     1.970966603264784, 0.3417729217554605}, {2.0117280687433996`, 
     0.3413580351480392}, {2.0497619697261267`, 0.34080546272568907`}, {
     2.0909893588445443`, 0.34003635239656105`}, {2.1314628676776, 
     0.33911927740617637`}, {2.1692088120147672`, 0.3381281641015177}, {
     2.210148244487625, 0.33691434936335785`}, {2.2483601124645944`, 
     0.335659426130582}, {2.2499999605263157`, 0.33560305845146926`}}]}, 
   {Hue[0.37820393249936934`, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000394736843`, 0.30982363484017883`}, {
     1.5379659631134865`, 0.312501578191071}, {1.5791253748889793`, 
     0.31512520711752456`}, {1.6175572221685837`, 0.31731914571455894`}, {
     1.655235189162826, 0.31923680144222194`}, {1.696106644292759, 
     0.3210635007834503}, {1.7342505349268036`, 0.3225376791408966}, {
     1.7755879136965387`, 0.3238923622719922}, {1.8161714121809118`, 
     0.32498526108545683`}, {1.8540273461693966`, 0.3258008486539939}, {
     1.8950767682935719`, 0.32647153859614186`}, {1.933398625921859, 
     0.3269050190842011}, {1.970966603264784, 0.3271569275653827}, {
     2.0117280687433996`, 0.32724485722117475`}, {2.0497619697261267`, 
     0.3271607148372681}, {2.0909893588445443`, 0.32689703725141134`}, {
     2.1314628676776, 0.3264723798066044}, {2.1692088120147672`, 
     0.3259359725804125}, {2.210148244487625, 0.32520924771179593`}, {
     2.2483601124645944`, 0.3244022905632607}, {2.2499999605263157`, 
     0.32436498983317424`}}]}, 
   {Hue[0.6142719099991583, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000394736843`, 0.2886551833200594}, {1.5379659631134865`, 
     0.2915968481287618}, {1.5791253748889793`, 0.2945352781539091}, {
     1.6175572221685837`, 0.2970481723382407}, {1.655235189162826, 
     0.2992999981303966}, {1.696106644292759, 0.3015110341215642}, {
     1.7342505349268036`, 0.30336237829790746`}, {1.7755879136965387`, 
     0.30514370751989145`}, {1.8161714121809118`, 0.3066713781443258}, {
     1.8540273461693966`, 0.307904808053965}, {1.8950767682935719`, 
     0.30903997723027643`}, {1.933398625921859, 0.30991597420255523`}, {
     1.970966603264784, 0.31060842330296795`}, {2.0117280687433996`, 
     0.3111801549754544}, {2.0497619697261267`, 0.31155135899175673`}, {
     2.0909893588445443`, 0.3117838923698228}, {2.1314628676776, 
     0.31184747359050724`}, {2.1692088120147672`, 0.31176607806370027`}, {
     2.210148244487625, 0.31153117855280654`}, {2.2483601124645944`, 
     0.311180560188236}, {2.2499999605263157`, 0.311162768256689}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["diam", TraditionalForm], 
    FormBox["\"S/N\"", TraditionalForm]},
  AxesOrigin->{1.5, 0.29},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.5, 2.25}, {0.2886551833200594, 0.3661558472082852}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.56665341371875*^9, 3.566653846296875*^9, 
  3.56674381565625*^9, 3.566803118765625*^9, 3.56706796353125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"RMSSpot7", "[", "\[Lambda]_", "]"}], "=", 
   RowBox[{"Switch", "[", 
    RowBox[{
    "\[Lambda]", ",", "\[IndentingNewLine]", "350", ",", "25.8", ",", 
     "\[IndentingNewLine]", "370", ",", "24.7", ",", "\[IndentingNewLine]", 
     "400", ",", "23.0", ",", "\[IndentingNewLine]", "450", ",", "19.9", ",", 
     "\[IndentingNewLine]", "500", ",", "15.7", ",", "\[IndentingNewLine]", 
     "550", ",", "13.3", ",", "\[IndentingNewLine]", "600", ",", "13.4", ",", 
     "\[IndentingNewLine]", "650", ",", "13.4", ",", "\[IndentingNewLine]", 
     "700", ",", "13.7", ",", "\[IndentingNewLine]", "750", ",", "14.1", ",", 
     "\[IndentingNewLine]", "800", ",", "14.4", ",", "\[IndentingNewLine]", 
     "850", ",", "15.3", ",", "\[IndentingNewLine]", "900", ",", "15.9", ",", 
     "\[IndentingNewLine]", "950", ",", "16.6", ",", "\[IndentingNewLine]", 
     "1000", ",", "17.3", ",", "\[IndentingNewLine]", "1050", ",", "18.1"}], 
    "]"}]}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"DESpec7", " ", "spot", " ", "sizes"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.55505082025*^9, 3.5550509264375*^9}, {
   3.558953971109375*^9, 3.55895397190625*^9}, {3.55895460153125*^9, 
   3.55895464134375*^9}, {3.567069101875*^9, 3.5670691114375*^9}, 
   3.5670691740625*^9}],

Cell[BoxData[
 RowBox[{"Switch", "[", 
  RowBox[{
  "\[Lambda]", ",", "\[IndentingNewLine]", "350", ",", "25.8`", ",", 
   "\[IndentingNewLine]", "370", ",", "24.7`", ",", "\[IndentingNewLine]", 
   "400", ",", "23.`", ",", "\[IndentingNewLine]", "450", ",", "19.9`", ",", 
   "\[IndentingNewLine]", "500", ",", "15.7`", ",", "\[IndentingNewLine]", 
   "550", ",", "13.3`", ",", "\[IndentingNewLine]", "600", ",", "13.4`", ",", 
   "\[IndentingNewLine]", "650", ",", "13.4`", ",", "\[IndentingNewLine]", 
   "700", ",", "13.7`", ",", "\[IndentingNewLine]", "750", ",", "14.1`", ",", 
   "\[IndentingNewLine]", "800", ",", "14.4`", ",", "\[IndentingNewLine]", 
   "850", ",", "15.3`", ",", "\[IndentingNewLine]", "900", ",", "15.9`", ",", 
   "\[IndentingNewLine]", "950", ",", "16.6`", ",", "\[IndentingNewLine]", 
   "1000", ",", "17.3`", ",", "\[IndentingNewLine]", "1050", ",", "18.1`"}], 
  "]"}]], "Output",
 CellChangeTimes->{
  3.558954611796875*^9, {3.558954643078125*^9, 3.5589546494375*^9}, 
   3.559050306421875*^9, 3.559141431078125*^9, 3.5593107636875*^9, 
   3.559923176234375*^9, 3.559968344484375*^9, 3.560155895828125*^9, 
   3.560682389828125*^9, 3.560690057640625*^9, 3.560754333203125*^9, 
   3.560757355015625*^9, 3.56075798465625*^9, 3.5607626789375*^9, 
   3.560764989796875*^9, 3.560788243703125*^9, 3.561132496609375*^9, 
   3.561728382828125*^9, 3.56178993334375*^9, 3.56198268103125*^9, 
   3.56204645146875*^9, 3.562069292625*^9, 3.562351745203125*^9, 
   3.562354787046875*^9, 3.562465977096756*^9, 3.562961791359375*^9, 
   3.56308678215625*^9, 3.563728060359375*^9, 3.563821403609375*^9, 
   3.563838985671875*^9, 3.563945932609375*^9, 3.5639855104375*^9, 
   3.56402198946875*^9, 3.5649255168125*^9, 3.564929602015625*^9, 
   3.5650038495625*^9, 3.565350330421875*^9, 3.565455062125*^9, 
   3.566308729921875*^9, 3.56658061296875*^9, 3.566621992921875*^9, 
   3.56674381590625*^9, 3.567069179421875*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Ropt7", "[", "\[Lambda]_", "]"}], ":=", 
  RowBox[{
   RowBox[{"Sqrt", "[", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Rrmsfix", "^", "2"}], "+", 
      RowBox[{
       RowBox[{"RMSSpot7", "[", "\[Lambda]", "]"}], "^", "2"}]}], ")"}], 
    "]"}], "/", "PlateScDESP"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Rrms", " ", "in", " ", "arcsec"}], ",", " ", 
    RowBox[{
     RowBox[{"includes", " ", "rms"}], "=", 
     RowBox[{
     "Rrmsfixum", " ", "for", " ", "surface", " ", "and", " ", "alignment", 
      " ", "errors"}]}]}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.548521265717515*^9, 3.54852130995112*^9}, {
   3.55504705440625*^9, 3.55504709521875*^9}, {3.55504736996875*^9, 
   3.55504743*^9}, {3.5550490463125*^9, 3.55504917384375*^9}, {
   3.555410892109375*^9, 3.555410919390625*^9}, {3.55992117125*^9, 
   3.559921196484375*^9}, {3.559921590671875*^9, 3.559921598140625*^9}, {
   3.559968818375*^9, 3.559968825109375*^9}, 3.55997006215625*^9, {
   3.560680944859375*^9, 3.560680980734375*^9}, {3.560755650078125*^9, 
   3.560755736703125*^9}, {3.56075745640625*^9, 3.56075746196875*^9}, {
   3.5623515116875*^9, 3.562351512671875*^9}, 3.5650845138125*^9, 
   3.56508478334375*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SN7", "[", 
    RowBox[{"\[Lambda]_", ",", "dfib_", ",", "Rg_", ",", "AM_"}], "]"}], ":=",
    
   RowBox[{
    RowBox[{"NIntegrate", "[", " ", 
     RowBox[{
      RowBox[{"2", "  ", "Pi", " ", "r", " ", 
       RowBox[{"MoffM2", "[", 
        RowBox[{"r", ",", 
         RowBox[{"Sqrt", "[", 
          RowBox[{"MMEVG2", "[", 
           RowBox[{
            RowBox[{"Rsee", "[", 
             RowBox[{"FWHMCT", ",", "\[Lambda]", ",", "AM"}], "]"}], ",", 
            "Rg", ",", "0", ",", 
            RowBox[{"Ropt7", "[", "\[Lambda]", "]"}]}], "]"}], "]"}], ",", 
         RowBox[{"BetaMEVG0", "[", 
          RowBox[{
           RowBox[{"Rsee", "[", 
            RowBox[{"FWHMCT", ",", "\[Lambda]", ",", "AM"}], "]"}], ",", "Rg",
            ",", "0", ",", 
           RowBox[{"Ropt7", "[", "\[Lambda]", "]"}]}], "]"}]}], "]"}]}], ",", 
      
      RowBox[{"{", 
       RowBox[{"r", ",", "0", ",", 
        RowBox[{"dfib", "/", "2"}]}], "}"}]}], "]"}], "/", "dfib"}]}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"S", "/", "N"}], " ", "ratio", " ", "assumes", " ", "sky"}], "-",
     "limited"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.555050136703125*^9, 3.5550502555*^9}, {
   3.55505030340625*^9, 3.555050315109375*^9}, {3.555050443125*^9, 
   3.55505048015625*^9}, {3.555051500265625*^9, 3.555051529234375*^9}, {
   3.555051589640625*^9, 3.55505160484375*^9}, {3.559921476890625*^9, 
   3.55992150384375*^9}, {3.560156807328125*^9, 3.5601568129375*^9}, {
   3.56015684421875*^9, 3.5601568544375*^9}, {3.56068187153125*^9, 
   3.560681947765625*^9}, 3.560690346703125*^9, {3.56075583040625*^9, 
   3.56075585928125*^9}, {3.56079271296875*^9, 3.560792752296875*^9}, {
   3.560792815625*^9, 3.560792819046875*^9}, {3.56079286734375*^9, 
   3.560792868140625*^9}, {3.56079293553125*^9, 3.56079294846875*^9}, {
   3.5611293358125*^9, 3.561129336*^9}, {3.56500376228125*^9, 
   3.565003772296875*^9}, {3.56507574403125*^9, 3.56507574403125*^9}, {
   3.565075829359375*^9, 3.565075829375*^9}, {3.567069150140625*^9, 
   3.567069158234375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"P7850g", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"SN7", "[", 
       RowBox[{"850", ",", "dfib", ",", "Relg", ",", "1.2"}], "]"}], ",", 
      RowBox[{"SN7", "[", 
       RowBox[{"850", ",", "dfib", ",", "Relgmax", ",", "1.2"}], "]"}]}], 
     "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"dfib", ",", "1.25", ",", "2.25"}], "}"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", "  ", 
     RowBox[{"{", 
      RowBox[{"diam", ",", "\"\<S/N\>\""}], "}"}]}], ",", 
    RowBox[{"AxesStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}], ",", 
    RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
    RowBox[{"MaxRecursion", "\[Rule]", "0"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"S", "/", "N"}], " ", "vs", " ", "fiber", " ", "size", " ", 
     "for", " ", "elg", " ", "and", " ", "elgmax", " ", "at", " ", "AM"}], 
    "=", "1.2"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.555050326*^9, 3.555050355015625*^9}, {
   3.55505038553125*^9, 3.555050392265625*^9}, {3.5550504924375*^9, 
   3.55505049440625*^9}, {3.555050565203125*^9, 3.555050566828125*^9}, {
   3.555051333515625*^9, 3.555051350859375*^9}, 3.5550514116875*^9, {
   3.555051536796875*^9, 3.555051556765625*^9}, 3.5550516093125*^9, {
   3.559965064078125*^9, 3.55996506703125*^9}, {3.56015685946875*^9, 
   3.56015686146875*^9}, 3.56015706321875*^9, {3.560681952546875*^9, 
   3.560682016125*^9}, {3.560682292703125*^9, 3.560682310234375*^9}, {
   3.565075296734375*^9, 3.56507529675*^9}, {3.56665420459375*^9, 
   3.566654205796875*^9}, {3.566654303609375*^9, 3.566654356953125*^9}, {
   3.566654424265625*^9, 3.566654440765625*^9}, {3.566654477484375*^9, 
   3.566654483984375*^9}, {3.56708343746875*^9, 3.567083475890625*^9}, {
   3.56708359846875*^9, 3.56708360059375*^9}, 3.567083667296875*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.2500000526315789`, 0.3123409959707834}, {1.3006212841513152`, 
     0.31803664978174273`}, {1.3555004998519722`, 0.3235703023431362}, {
     1.4067429628914447`, 0.328151922557516}, {1.4569802522171011`, 
     0.33211229290926797`}, {1.5114755257236783`, 0.3358344439650365}, {
     1.562334046569071, 0.33879032333818826`}, {1.6174505515953845`, 
     0.3414537611507163}, {1.671561882907882, 0.3435480413508074}, {
     1.722036461559195, 0.3450601132021695}, {1.7767690243914287`, 
     0.3462441675781556}, {1.827864834562478, 0.3469458082306958}, {
     1.877955471019711, 0.34727770646320005`}, {1.932304091657865, 
     0.3472641538906762}, {1.9830159596348347`, 0.34692382952882067`}, {
     2.037985811792725, 0.34622308364244214`}, {2.0919504902367994`, 
     0.3452244128978217}, {2.1422784160196895`, 0.34403728831595115`}, {
     2.1968643259835003`, 0.34249350385234084`}, {2.2478134832861265`, 
     0.3408322498478604}, {2.249999947368421, 0.34075649036815975`}}]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.2500000526315789`, 0.2756222456138205}, {1.3006212841513152`, 
     0.28137222444318993`}, {1.3555004998519722`, 0.287081215607785}, {
     1.4067429628914447`, 0.29192873564423755`}, {1.4569802522171011`, 
     0.29623861955375813`}, {1.5114755257236783`, 0.30043139756616244`}, {
     1.562334046569071, 0.30390485343445345`}, {1.6174505515953845`, 
     0.3072061443465346}, {1.671561882907882, 0.3099960304061082}, {
     1.722036461559195, 0.3122115149010695}, {1.7767690243914287`, 
     0.3142099803559178}, {1.827864834562478, 0.3157134407322144}, {
     1.877955471019711, 0.3168640346618477}, {1.932304091657865, 
     0.3177686658452437}, {1.9830159596348347`, 0.3183072346197773}, {
     2.037985811792725, 0.3185770886234246}, {2.0919504902367994`, 
     0.31854352846632455`}, {2.1422784160196895`, 0.3182625830270326}, {
     2.1968643259835003`, 0.3177034784844958}, {2.2478134832861265`, 
     0.31695896268830004`}, {2.249999947368421, 0.3169224378915306}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["diam", TraditionalForm], 
    FormBox["\"S/N\"", TraditionalForm]},
  AxesOrigin->{1.4000000000000001`, 0.28},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.25, 2.25}, {0.2756222456138205, 0.34727770646320005`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.56665433971875*^9, 3.566654380203125*^9, 
  3.566654431953125*^9, 3.56665446215625*^9, 3.566654514515625*^9, 
  3.566743879421875*^9, 3.5670836440625*^9, 3.567083675015625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Quiet", "[", 
  RowBox[{"FindMaximum", "[", 
   RowBox[{
    RowBox[{"SN7", "[", 
     RowBox[{"850", ",", "dfib", ",", "Relg", ",", "1.2"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"dfib", ",", "1.5"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.56662638140625*^9, 3.5666264043125*^9}, {
  3.566654540265625*^9, 3.566654541234375*^9}, {3.5670835415*^9, 
  3.56708354678125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.34731822754359454`", ",", 
   RowBox[{"{", 
    RowBox[{"dfib", "\[Rule]", "1.9030123455038286`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.566626394765625*^9, 3.5666264064375*^9}, 
   3.566654544359375*^9, 3.56674388271875*^9, 3.5670835505625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Quiet", "[", 
  RowBox[{"FindMaximum", "[", 
   RowBox[{
    RowBox[{"SN7", "[", 
     RowBox[{"850", ",", "dfib", ",", "Relgmax", ",", "1.2"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"dfib", ",", "1.5"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.56662638140625*^9, 3.5666264043125*^9}, {
  3.566654540265625*^9, 3.566654566390625*^9}, {3.567083558359375*^9, 
  3.567083563421875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.31859812101991014`", ",", 
   RowBox[{"{", 
    RowBox[{"dfib", "\[Rule]", "2.0585127026517065`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.566654569765625*^9, 3.56674388596875*^9, 
  3.567083568328125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"now", " ", "off"}], "-", 
   RowBox[{"center", " ", "apertures"}]}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.56708379059375*^9, 3.567083807984375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Frac", "[", 
   RowBox[{"r1_", ",", "r2_", ",", "del_"}], "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"del", "\[Equal]", "0"}], ",", "0", ",", 
    RowBox[{"Re", "[", 
     RowBox[{
      RowBox[{"ArcCos", "[", 
       RowBox[{"Max", "[", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"Min", "[", 
          RowBox[{"1", ",", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"r1", "^", "2"}], "+", 
              RowBox[{"del", "^", "2"}], "-", 
              RowBox[{"r2", "^", "2"}]}], " ", ")"}], "/", 
            RowBox[{"(", 
             RowBox[{"2", "r1", " ", 
              RowBox[{"Abs", "[", "del", "]"}]}], ")"}]}]}], "]"}]}], "]"}], 
       "]"}], "/", "Pi"}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.55895035546875*^9, 3.55895038909375*^9}, {
  3.558950537640625*^9, 3.558950605828125*^9}, {3.55895065721875*^9, 
  3.55895072725*^9}, {3.55895077571875*^9, 3.55895081025*^9}, {
  3.55895094959375*^9, 3.558950962609375*^9}, {3.558955465015625*^9, 
  3.558955517796875*^9}, {3.559229877640625*^9, 3.559229918421875*^9}, {
  3.5592303668125*^9, 3.55923042496875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Frac", "[", 
    RowBox[{"0.5", ",", "1", ",", "del"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"del", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.558951539390625*^9, 3.55895157503125*^9}, {
  3.559229928546875*^9, 3.5592299315625*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxN2Hk01c/7APBbQhRFRUplCyFZytanHkR7skSiECEUWrQolESfkmyVNpSt
kLJkC4MkESERKe+7uu7lEu592/36nfP53rf5Z87rzDnzPGfOzHlmRt7Vz9p9
PolE2j6PRPr/XhOkWLOzs4j0X/MbV7w1PkH4bb628giXsI7qAVcGm7C+RFjX
lw7CxtQ/9Y/eELaOaMzSdSZ88WvYac+KGb7b2haxqo5P872m0m+5vuwU3+98
agSX/Jrg2yVSe6gzdJzvwILY8MYgwve7R2SrLhGu1yjc89KXsG6jUcoFB8JC
4mZ2y3QIZ9+zK9tPHuO7tqjI2ribMLlnZZ9uB2EprZ8rVjcSDml29usrJmwt
4aUQHk14LPbKLQSEe2WrWDuNCLenCx1o2kw4vzRG4tcGwr6UjMcTywgfPTUw
dV2c8D6ejrOICGGja5eqogUIq4pWKK6cwdH80NT0dl44SMcLhCeN4WjFHnJ1
ccIDEFq7h6k8giOGU9ulLW3PYDQjam/OAI5WaTwMsml+DlTttuwtTBxFqCHl
7Rap0PpeZkk5BUf5yWpX4sLTodLc+YzZLxzVsw7L/xP5EhKPsLbYtOIoLyGE
ZKyWDZHUTQldX3AkP+PHIn99DVdOB0wc/4QjG/9Qn1bnN2B/nYT8y3D0bNX+
JLX1ubBr0U75sUIcaSfHVr9oywW9+3duhOTiqH+GIlkXlAfLXkntjkrH0VTb
k6JElA9NzRotWdE4OjwwO89CvBDKHM7q6t7BUTnPW3IgoRCyaEX3S2/iyE0z
+fhZuSK4NWbq8Dnwb/xhXsmscjHskDtCZZzAUdX+f5ZXSZVCsd9Nrrwhjgzk
GlwknpRDxnj94Ve6OLrA1bApXFABD24sLdXSxFHWgomfIqcr4NzDJ8GgiKOS
Hcvy/hgi0ES5wsfEcLR0hUKboFslpIj/lkkg8xBJPZrxraMKYh1B2LCbh6i2
jadKBKoh9GXyaGc7DyW4LXc32VQNrqZuX1d/4SE56/kyO25Wg8IFZlhSIQ9d
1z55wnLjB3jxa3gw/Q4PFfgaZxz1q4HkbOHad1v+jjs86ZGqrYWne7XPfvuX
ixibVwn+GK0HpUV765vDuAgSGpZukGyArAZXhaYQLnI96GjitqkBSvfHt9YF
cFHMosyD8V4N0GmB61Qc5yKFMZOwP90NIGVTPvLSkIsue94dbkdf4J7jnoDg
vlHUKKq3WuhSE4SeOn5pw55RJHjMIO/072a4IpB58ezAMLq8VplutqENjl/7
qtT+8g/qjqQfO7ysA+6X0xOeeg8hzHRNyhS9E0p7VBdnK3CQ9RlH2gnhX6C4
1Nj0UCIbffxNLvdYgkGe2i1vCpWJlndN3eYxybCuxaVEvZOJBpRwRTREhsiL
hgsDmpgIHxt5GjlGBvcaVppwCRPF80KO6S2kwEqnA2SNKCbi/l7rUatCgaAY
SfuLBkwk1usWQPWkwO6xp+aL7/aiPxaZtf79FHiXGBBvG9qLJPXvl3NGKaBg
bkFNvNiLenhxtuemKTAZM3tN27UXabgVvI4Wp0KOumuZnX4velm/mrNGmwrL
nVV0n5MZaE/mG1LcRSr0fMyV09NjIE4lXeKyKA2u2oybGWgwkAHbc+bAMhqs
JBt7GSkw0LyEKGF1WRpYTn3N3S7OQIsSYz5Pb6RBpQ7HdBeDjgb/1MYvtKZB
cpKau/0DOjooYtxQ94QGrpdTXgXyaIjMfbakSI8OM0Lsxqv9NPRo1+LeamM6
PI7XGQ6m0NDBQMEbXXvp0PqmyuhGEw1hZWdSNzrTYQejp+FOOg0tixme9LxF
ByUbWc5TOxpSbVUxs/lFB7rGfR1USEWxo6yhU7EMUAtO4zCzqIhUvVrHKokB
vl/fZUo+pyKvSeS9L5sBY2faFTzuUJF/SqbjjVoGiBZJLxNzoaKqZ+4rxaYY
oGXyeMRBhIqUe7I8hn16ISA2803YDAW5afmqnA7shVJqqU/OCAU5bExmC/7b
CzvCf1Ln/aagV+HJivHpvWDXINv2Mo+CHsoqGepTe+GKbVIBz5GCcg9Idhx0
Y0Jl+ht/OSsK+tc8XE/kPBMWjCGNvTspKEnXt5oTxoSox1jqMy0KUjX+4LIj
gwnJPfL3zQQpKPhmt4Ehhwl0LR0r3wkyQt81lANJfaAWaiqWMEhGSVdr5o9I
9kG+kttNdicZOUR8x+MM+qDWKzUgNoeMdB+Qp7+E98Gi9wXaZSlk5P3606zQ
kz6wXPxxgJ5ARrHeO3m33/RBZw7d3fAGGZ2N+5Z5tbMP+keU7bDDZOT66WG3
hzYLJIJf6WnOI6MMyhUney4LwgtV65biGCpZJuR4QpwNE5yMIyP9GEKmJ3Km
VdhAcU6/WvwDQ+SX7JDpo2ywS1gv/qQJQw9GSGaXL7Ghvjk1KagGQ7atP/e8
jmdDnklKtelbDG0s5Ile/soG5UCFQ+vTMZS7tDZMl8OGx3nP6cJPMZRfdDCt
X6wfQhWTFzZGYIj5yZJVbdkPPMd1j98EYej5mK2+3Pl+8I5PVI89h6Gn4YMw
m9AP1oLPLA47Y4hFbyqXZfZD7TZZzNAWQ2vtHSv6JQfA6MKTM7L7MHQhzmzw
tPEA5OSsEpg1xpDsdl85rTMDoND7KJ6shyHvPvKX6bQBeLBORrlG42/84RGP
BdgAiNonFKUrYMjoz4jZBnkOBEdL7/l3JYZs6lYc6z7FgZG6B10+4hjiZJS7
1NZzwHOe1CmLBRiKOqf8bdBuEArPqU0eH+35rz4OQSJNda0KRjjcVsWkv4Gw
nb5SxIUUwioy8o2kK4QzVRZOW+v/5ltDb1AjbaSbb/ttnOBNel183zAbaC65
1MH3ikM50UekW/nO431cUqdUz3faT/rdvrAKvo9ZyRb8dEvlu0T0yvfqgBT4
n7dQ5q29bo/4Vhx6P25U/ZnvPSmdjRb2rXybH5AU4L7r4Nu7fbQqVq+L73vO
Hde0irr5Ft+k5Rkp+ZvvqJlbB5ine/gOXnmo3uYRYV+ddbtQDWEPFCYY0EXY
aT/rg9oQ4ax+FZOh+RjYr/Cqsj0/CCr5DnINYhhIW3Wax7ZwIOXy3dm0lRg4
T4LdHx8OrDOu/H1NEYPaiAyfQ6s58ERopNxRE4PCQfMfl9oHQLpx/TM9Qwzc
rT8neD4agLg4+6sSZhh4zD4znjk+AEsc7jj2W2BgeTItiKM5AMK9QzIvTmCw
Ee8yT23thxuvFcev+mGgUL/m45GX/TB7zu7H4UAMvkX3Zyhc6wecVPZALBqD
U++T1fo290Pvqohll99j0GlvK3w5hw1u5JJhm1oMBr4aPQi5x4aejP4WzRYM
1uR+SfM8w4aOzdbRNAYGIduL6h7ps+GTxRoxS0kyqL1NnJT+woLlmmSps7Jk
kDqjGHG4gAUuYmly8cpk2Ox3X0v0GQsmGjQ2/zAiw9YUX4k8PxZo7PnH0cWN
DCph14+GybAgeofjK/8CMtR4x67Cr/RBt8K6/NgKMghx1gmf8eqDDfOpZQV1
ZICGX+z1h/ugutK7eaybDIc4RycNdPuAuy0QvyZIgUohztq2ASY4GDwyj7Gj
QPsLgT2JPkxIlz52MN+FAgtZ+5eKH2XCCE/uyHdvCuj3FUy/2M+EyHcvT8mE
UCDSPznXQJMJSKc47nkGBXIdSnSnhntBaWMHOXeMAnbMQE+T0F4YkF8R3PqY
CqrWqfUt+QwwuPL8TFUqFdI6ng/1ZDAgtG2j+9scKpBmAj6QnjJAKmLn/qhq
Kgz479t6OYwB2/svrtrLosKIcLPfNjsG3CvsKqwypEHFZIHbjyk6aO9LHnz7
gwZG8jddGg/RIeC8+vF7UgzYMJ604Z4yDaREB8vs5Blwwkv8BPdvPS5Oylu5
VoMBpM/31N3/1uupesPmbBMGgDP1jwuJBqHyu6H+1N88I5+713ZRIarpxBrB
DwxIxdY91ImhQrpqYmegXy9kzkiWDQlQoaN7qbVHHRPcZk+ojE2RweXyP73C
+9nwViLu1d6/+/KDuv7tD4IciPjkUVyz4Rcoi5QxU3cPQafyi977ul2wpszH
XPDWH4jAYuU7j/09txPzX52lDIOvwYeUSdM2wK3KnT6uH4W8e/KlqfotENr5
5td29VGQmbmrytzQAuLHXxwt1hoFhsLJd+tlW0DZP8Iha+soqAY5/Y4itcCh
KCu7GKtRyGn02yf9uRne1tMPHAsahd5i9QyOfTN47RDfxm0bBbnMyw+0GE0w
Wk8q8+0aBWVt/yJWXRNcsx4xYvaMwsMwE824rCZIOP7D4Cfr7/wczY05/k1Q
G/JicxWJCwcrZ9IEJxpBoUxP464GF1JSap6RRBrh52bn1evDuCDb+rBnmVQD
eIxvWXLzXy40arNtU3j1MFS+WIAexQVMoFN5ZUc9LNhVykp9xIXotOKtbx/W
g+aRFaVKb7iwyy3YK0q6Hq4FNdgrdXHB+bqjy1OJz6Bcq/9AUYsH4kLt71XZ
tfD2tvjtG1t4YGgazXX/VAtGB+lBVCMeVPboPw9IqYWDP2LdU8x50O9lVbbQ
sRYusQY2Kzry4LbEUAD100doEE/9phDOA6cqueIrD2vA//BSCYVuHiTiHPPz
C/7e519ueryezAP5VQyTkJ9VYDtuobiBwYMl63wi9PKqwOjJ3S1aQzzYer71
YrJTFQj2iDpsX4BDg4XlXpn8SnjsIZjioIHDMZefgTX3KiCySEnDSRuHp0uj
FzzRqoCQhWbvjuvh0PY9VsSxuRxOZIZ+OmmMgzgn+7fP4nLYxJllXziEw26V
6+nnA95DTcDE5rirOGjF3LnbPFUEhbUyFQ+u43CAMja15GYRvJI23PU4HAcb
ZlcgaVERRJVcPPI8GgfdvLMHHZYUwnXRh5TU+zgMpjnd97n7Ds47Fvq8fIyD
nCvj0NWF7+DI9GjQm1Qc5IPG4jJH82G/xXLh/Fc4rBuJcTdyz4ftSbrRhTk4
OF4qY2a25IGSydkX5cV/4zVZWkU+zQWp2Bj1qnIcsmOiFGfG34II9W1BTTUO
VjUV8but3gInbLC24QsO+MNndwzaXgP5u7jl1xYcWNfTTk5aZ0ObsmZnazsO
niI7T4aUZULtxQOu7T9xqOTcsSld/ApK6k6xOzEcdhQIuahvz4Bsmcjzv+h/
1+90q8/U7jRI9M6axlg4lGd8EbCVT4GY9/XhtEEcqN8c1hblJ0PYYtYS5igO
lr9dR6WKnsCFYyKP2OM4iOloqBvdiAevHFWFwRkc4j5LNJzRuA5HZ3dlDQuM
wf/e4xaWnpt5CwmbPA8vHxcjvHk4bee0JGGZeJr9gjWEDW6skzqvQNjurMM3
qgrhWMvmAx90CC8WKzMN3U145macBuk8YdpFU9JUPeEcx+SMkUvjfB/eFrK7
rnyC71yn0wpGU5N8j4nuECixnebbumWr3pqEGb4fKcj6R3FniXwWLdArnuPg
EfYkeY5da95HbOER1vBwTOqe44pXj5vUxgjTtGQ2fpogbCczb2Rojuvm9RWv
miT8urXYzHeOL5y3P7piirBI8cM7btOEryaHWN2dY84tT+miOW49op8iOkP4
6WR7ae4ci9Mqrv2c42tf0ncKzhJ2f3ah1X6Of9x0Sgid472+O52y57jMTlOp
fY7/+8/j+/8Ah1U3Tw==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-2, 2}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.55895157584375*^9, 3.559050276265625*^9, 3.559141368546875*^9, {
   3.55922992346875*^9, 3.55922993225*^9}, 3.55923038903125*^9, 
   3.559230429890625*^9, 3.55929530103125*^9, 3.55931053746875*^9, 
   3.55992287928125*^9, 3.559968348765625*^9, 3.56015589984375*^9, 
   3.560682524140625*^9, 3.5606900645*^9, 3.56075433925*^9, 3.560757359625*^9,
    3.560757996859375*^9, 3.56076269075*^9, 3.56076500175*^9, 
   3.56078825521875*^9, 3.561132580390625*^9, 3.561728423453125*^9, 
   3.56178997015625*^9, 3.561982719703125*^9, 3.562046488109375*^9, 
   3.562069696421875*^9, 3.562354257953125*^9, 3.56235481621875*^9, 
   3.562466005503006*^9, 3.5629618200625*^9, 3.563086812484375*^9, 
   3.56372808903125*^9, 3.56382142803125*^9, 3.563839011015625*^9, 
   3.563945957140625*^9, 3.563985535453125*^9, 3.564022014546875*^9, 
   3.56492554921875*^9, 3.5649296635*^9, 3.5650038746875*^9, 
   3.56535039559375*^9, 3.565533532921875*^9, 3.56630878634375*^9, 
   3.566622046109375*^9, 3.566743886390625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Frac", "[", 
    RowBox[{"1", ",", "0.5", ",", "del"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"del", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.558951539390625*^9, 3.55895157503125*^9}, {
  3.559229928546875*^9, 3.5592299315625*^9}, {3.559230779265625*^9, 
  3.55923078290625*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxN2nk01N//OHAVJRVSkqgkW0iylsozJUSE7EqUpUUKkTakUClZImTf9yX7
ejEzkrW0WcJgbDNjjHVQ+L0+53x/5j1/zJzHOXfm3Ne9z3vv83nPHLh219Bu
PQsLy1vs7X+fMrCLvLq6ilj+73V38eDLxSWm8wuPis3MMS0noXtthMK08vYX
3S2/mT49NNUUmce0oX9rlvxVph+0v7jjULOy5h8/tpDrbJbXvLf27k5lwX9r
Lr6NZ+PqXVqz9Zuj9C6fxTUvhDx+iWBhzaOCdWQNFaZ/pW7UbVNgurAieHvv
IaadBtOilnYwfdlx4t8zTqZ15uWubt7MtIq3R13QBqYlOGoO7l5hICnNPbIT
c+7A936DX9wCAy1JC3SphvnBxn3nx8RmGKgrX3xKseUtzKYFaudOMBA1x6rY
50swDB39ka04xkCzYb22ourvoaOSn6t6kIFG+Jd3NnmEQ+25q87qvQxkvLjO
/PqjCIg1Jyte6mCgg/YGylpc0fBm6EhEdwsDCdLGFkh5MfD4jtuSzWcGWm64
Z+CvEgdmz1jQvSoGqts1XNW+NQE0t2gcWChhoC+/jqqdLE8ApbCA514FDESc
2dGidDURdmTs0gpMZaAUMV5pq6gkaPsq/S0riIF0NApVr3SnQJWFi7x8AAOd
kfN7t80mFbJIpWEVvgx0kyPV8zUpFV4unLH48oiBGuzUVysH0+CskPnQiC0D
TXQtiyfXZkDZXd+5A8cZaLVy+TXL3hxIW2wyzZBnoPZfTrHnnuVA+HPuClkZ
BtqwvOOiCCkHXD989ISDDLRDt12ZlJILMqhg05VtDLSltKfr8rZ8SOLs448Y
mEfwTAu/5WYBhFjCpuN/5pHbiqF3QXAB+KTHz3b9mkelNzf508sL4NqZ6+0C
LfMou1Jt87nNn0DYfexFXMk8yp+9WRyQ9AkSe6cnUwPm0YSe7HvrxkKIz97U
UKw4j5p/7CdL9hVD0OKNQhPZefTK9hgpeLkYvDWa4hmS88hFtLIMJ1gC1sQ3
j48LzSOt9gPaARYlsH8nz9FqjnnkNPJbrvZ7CcQ+FozG988hsYTCTTbVpRCt
fdTl+6s5tAO/fDfeuRxEtmg3fX0xh/IUt0qPvyqHrOZrwm1ec2hjx6eCHYnl
UHHhfUej2xyywLVc4uoohy49hlyNzRw6clJOPkO2AnZdqp5JPz6HjnNcqEge
q4B3lufdPMdn0Vd1x83256pgl+C11sekWeSr+eqog0UVxP55JPqwfxb1v7D4
YHC3CnKvZP90/TmLNr20axqMqIKWq1xKN+tmEe0w362/5Cpgt/05fylyFt1W
xZ2UCKgGH0cbj0PnZ9GpTFU3+6oa6Au0iq44O4ukilzV7L7WgEqBZa2O6izq
WlC8rEeqgek5Y3Yn+Vk0moTWE7cgsPHSjvi0dxbZCL78yGqB4HSIfNmJ6Rm0
w9kq+M40gpVStgXdjzOIMqVdfup1LVh0rxfsD5tBUq8E2pdDaqHk3yrcC5pB
+eThgqKPteCktuQf4juDilXPb9yUUwu9TTS+33dnkEB9xoJqey1U9f5Wtlaf
QW2Sfxc28NTB4w2ZD1wmptG9Deyde4LrwCnSaqP12DSS1jNlOxtRB9eO7AjT
HZpGU8vD7LZxdaBt+eSTRNc0+mXQmBKUUwe7C/Um+vDTKNDRvvT9lzooujZz
TSd6GoWXiLBcYKkHWt1JPRGdafRqo0ho8I16GDSd+rNdYxq92Bdi/sepHn5O
pNxePT2NLtOVbgu51UMVP9erbqVpZCZx9dH7Z/UQ4DyACxKeRsW7Xd5IR9WD
xAG/48uLU8hM/7zzvqZ6sPFuF/mVPoUUom4ReUVxYNIVp9qbNIXiX4zdd5HE
gbbcPTNS7BTqip5vbjyCAwUS95vp91MIrzOMv6aCA3YtwxnOZ1NIxstpTuci
DnK5ftZpmk8hy8u+DTMPcPA3ttuqfPMUIjrLvIjC44DOyPSoZZ1Cgs/37Zb9
ggOS/uOQz6t0pGMv4YJacdC2XrDh5xwd8bkLuDf/wkGi/ZXD0wN0lHJJODNi
DAdaMsS/khV05E7OZt20BQ9h1cMR0bfoqMvY7pqUDh6sPKI8le3oKFVvbJ/2
RTxIyF+07bhKRx6vyaY2l/BQkV52hN2Yjsx23VN8aImHvtCABlego95kLWO9
23gQv3V0VnsnHYVTArIDXuGBLjLSNcxJR1/Sp4dl3+KhvD8KeW+mo1yXZce2
IDx8yGTfdWd5EmmwS5lMf8AD0Tv3rHoHZq1k2d4UPLgcXoqdfjyJaITneSdq
8cCadP2WhPMkSl/V2mCLw0P47lZFK/tJtGFa0P5FAx4qN8S3fNGfREEB2zRz
WrD23eeW4kUnkWGq6FxsJ9beL9j4YjsNjdpcqV+mYc/3b0nIF09DTxbHm5Kn
sOdztqVWlNNQ4i6R0LOzeOi/rPxcLJmGKv6aX7ix+L/x6M1f9qCh2zrtdbob
CFDRL7E1W5iGqM7Tj57zEuDJyXU5UbtpqHP2+3svPgKciuzSfcVJQy+4pyTv
8xOg1vD1O/ulCbTS2VussZcAnwkUngMdE8guZmdGkAgBXgrjC7kaJ5DAwtdN
+mIE0PaKNlqpnkCKuTLFmyQI0HZMN7wnYwLN/GwfuipFgB9ZufzhzybQsQre
4U9HCRDO7l/x4sEEUuqp2KYgTwBTu6uWrncmUMArw0s5CgTo3scdo28+gfjt
VQVeKhNgINhZaMvRCbT9972h3pMESKSdr1sUm0A++gHH96sSwFZH+NqY4ASy
tnvvbgYEGGP9nkRgn0CzpXyvPqkRgPZAQdybSEWX/HTPsWoQIP/H1kanX1Rk
ffszO6smAZyPDt+40kJFffS3Hn8xz5LDMlXKqOhpKKh+O0+AEk0nnUO5VETm
i3iRp00Aj2QNKl8yFYUX8Jn56hDg7xXG4bl3VPTZ1N+PT5cAVRXtbUO+VJQH
at++Y/bkS7/b8ZiK7N4Xv/TXI8D6b2YFeQ5UdOb5Q8GfFwmAP3zUMPYKFZl7
jI866RPA9/XmmTeXqIhFymhlFTO7eoXCLaCiLMlb45sMCdAUH/LTTJGKolZ9
sz0xv1m+5a4pRUXXlJ5+oGLWszjLp3SAiqjuFxMMLhGAq1SgTISPiqqth2tz
MH/dMWu2YxsV3TbknmAxIkDIvZbFdRuoSEL2taAOZqPW5Cj6AgXdOTR37g3m
XZJPT/TTKKjxac9VPOZOP+M/rSQKyj+dZz2DOXLo8NOqbgoKE2xS5TcmgMXp
jfuyvlJQ+c47dEXMgjF9NZENFOSqUXv7POa+xZKrL6soSDGjI/US5niTdywP
PlFQZmvkByPM1wodEuzSKaj345T8BcwHuU+fMYqloMvc0c4qmANlBx7dCqUg
8kedIEHMC/o+hd4vKchfY1/o//pzzfkgNfwpBV2RinNEmFuC8SI5LhQksVWB
yxuz0ie7KzgHCmolCd5RxBzfsTG86zIFsT919ejHxodjJq1t0oCCFBYkD3pi
vr/j/KaNmhRkfp3r6nbMffJkEDyJtVcj7I3ExlvLKMBD7igF2e74os+L+dN9
6QItMQraQXIa9zUgwN6w1nErAQpSbRroJGPz+bLYSdiNm4LOOh3kVsc8/ZPL
MoCNgm4HbPEOxuKhYZdhS+kkGfk+MG9hx+JFVnmGtY1ERkkBEa/ksHiKMn1/
itRFRvTwI2r6FwhwN+JXLjeejEZ55K46YPHZXfZgVKycjFT8eFKssfhV79ot
dCqXjEx/ySfrahFg9x7L4JsRZHQwWCRgPbYefFT+ffF6S0a11dP6TeoEoFrE
rA/3IaPzu1YCfM8SoO5jv2u9IxmVchYI/DpNgFt7bU0E1Mjo8h2U1auCre9T
bO+OKpFRTf46cThOAFWr1M+aUmT0K2GXXyi2fnfEjR27z0tGf/btSNqJre8q
oTsCrePjKFQ0UN5dmgBiapxGQ33jaL6CN9NRkgBBNnlvFr+Po9W5y3bG2H5i
lzi1LFozjuoGVU2WDxKAU8Sd6BkyjkZb5BuT92DrUZ2PP8x/HJ3KV90mtZsA
g7ZlBllPxtERlZqxRGy/K01Zqv9tP45iIrk2OXATwFrcK0X2xDjiIpjqqrJh
8yX58tbg0BgyfX7TZQcVD/u/WZdLdY2hjTA5UjqGhzcPjrO7tY2hgvyu2QvD
eLDDk1M2lY8h44/3XbX68LDbSndAOnAMFWW0bPJpx8MLVjFZ9+djSNAk0zi9
GQ9TmSueyGMMyVEDbGo+46GJkSdoeH0MldYIQznCw9NgHrMHx8bQqyD/9pFc
PJCVKam1h8eQh3Vfq38mHkz6cHObD46hXB/OCL5UPMhKuYVGbxtDOaIPuDbE
4GEQ/7utbnAUNYVaTLK9xoPWQvS5rW9HEUmbXTzGGg/FsW7vjX1GkXrVZ8oe
7DwUPqc3FPsAa+9goOFrjIe/waveR6+NIgHL9fv2a+MhV+palYnyKLInuQxc
k8PDzqvi8gkDIyj+5QletlUcPGNj8SH/GkFzskoOxxZwQMvq/CrfMoLST3kH
Gk/h4PPCK6eGkhG0nzMl7MIQDh6FUDMoASNoNlFiTLwBB/2EAiElpRF0Svw6
q60/Dp5cWlQ/Jj2Cej/fNs/ywsHugdM3VYRH0M/9HTZ/sPxC/197gSrnCMqx
baxecsBBrRztjObIMJrkT24R1sRBfJyknVn4MLrxd6qOxoKDk4ddXlm8GUa3
6K7nSxn10FlRnnPZZxjh38cO2tHqgfuX1ry10zBqtf6per+nHp5tdfC/qTGM
5m+5cOsV1cO1h0kZj+ZJqJY9/U2xdT2sbKS0PqGSkMtPBdNq43qIei837TlI
Qg9477qmatdDR16dyvM2EuKOWToloFAPZ0f6mwNSSchPYpLNl60eRC4J0qJN
SMiqSdV7fWId1BKv88RdIKEzbcNzU+/r4LJTllLCGRIS6ZE2qPKvg/evVLxS
ZEhItyuzrd+xDlhrzbhzN5LQgerJ4UuKdTAsHSaHSobQO/PoV+41tSDpmUIb
yxpCkwryvN5YPuvUXpzJkzCEeD/cOXUpuhYWnH8J2wcMISFTwx+GD2uBo5Rv
xzbrIeT5+31NtGwtyKpFzVhsHkLRlDOoXwyBW0hm3ouVQXQ+cvGO3HINVAxV
3M6dGUSG3ybxsx01cNavZ2hd3yDyFvraUfWkBkyaBX+kfxpEr8O2Xt/wpRoe
G8cVzVsOojDaK3RerQpqU/PuCRkMIlQweuvv1ipgXUDS2hqDaN2S26n+35UQ
GEVMjpEdRE8jr7eL366E+P4DYepsg2jn1MVrfP4VMCwrZ+C0NIBG5+rulehU
gKTPmW0RkwMomf/CWWOuCigUue5L6RpAYfe1Al1Cy6HhZrJbSO4Acn94JFwh
sAy2VBYdrUoaQDxWSSy958tAfythYjhiAElzTRKOsZZBV+6w3fHnAyiGL+9Q
5/1SoM6ImRBNB5D1Wz4lEfUSkD2nzMOhO4BWqo8mds0Ug1u4Zpv8mQHkm7Po
gEsohpVjNzT8pQfQ9Yzs2m5GEWz3zFCSWTeAZhduTsu+LgS/EolGbgYRiRR/
rVI9UghLtDTzGSoR7X0Y/YD87RMMXk19UtZJRJVnml/7cH0CkwhRzo9tRDTg
XKTLl1kATV+T457iiWjhD59xpFoBfFJLqj+TT0SuHoE3Xe3zQeyRsJFoKhEt
v4oxfjSSB1GfEoY3RRORgOIYMY2RCz4H49lb/Yloz28fvNdyNsxb7o/Ke0pE
7PzVZvvpWXDrfaxUiCsR3aKFiBz+lQmGbDF6pleJKGNLZlqaWzo0nBIkHjcm
Iusjd3M9JNNAxf2js6AOEe2KEN2+90sK5Obu2bB6moiyew71cOgmg/Bo5PsB
JSLiDHl4lJiXCOH7+cXw0kT0zHOidf9YPHCYRZSmChNR0KGaQ1ytMeAZxHf+
1W4iIv+bM5nYFwkzjeHdtzmJqPlyYsCwdig4rNvlqMdKRHKB3/MP7/eFElfJ
vzaz/Wv3K7EkiX3iRKb9jMXVqM1MOzWI2haUMm2iLOLvnsS0OP+BVpbHTHO/
3k8n2DO9sLR3R4Ah041/9pjzSjJ9I37n8KGuvjVnirMvGyozLa00KZ0y82fN
9jJeXuW9TMeJcXW0fmaah+/Ig/mPTDMYTnWa6kzXl9OMye971mx2iuZ5RKl7
zc/VJ76We/xeM69RbpA5X8eaP80TuBpFmtac0jP8dvxFzZqvGAgW9VxPXnM5
x+Of9W5J8P+tOLhu3zMztOaD9MpFlfovaz6f1NWqZ9ax5nO6PBvmin+v+d3V
396ypX/W7Ec9CSMtTHs+TFz+OMi0U+idR5s4e9es93nD/T5bpjmPyDq84elb
c+DKS92xO/3M3w+gbYl9zrTnbqOmS5FMO8nt10R4pu3RCza3bqatLpBxknSm
s6jiavT1ROC61Pggx/UZiBdaCDVvIwI7oYm9tC8Ekh6+XU3ZTQSJhtiRx4cj
Yf/p2j7vg0Ro2KBAO3QoFj5unKm2lCGCzZ5Pe5XkE4CvVTRG6TgRInkrm715
kiA01OzJdnUi/Ej3qE/CJQOXRYAlVY8Iu0cldokZpMKmUTp/oi0RVvn8p9QE
MuB5zsHFJ3eJMBv8a9HVOhNWXU06TR8R4XTJfOCN91nAYKkK3xZEBIP6A6dJ
X3PA9TPNbSyKCER7GfmIP7kw+faAMS6FCPsNnUcievNgdI//joeVWH/v3zfM
HMiH6wPl05caiGDqO7L61agA+tOo32S+EeFKedBmZXwB/FYwDCKNEOFnN0Wl
I+ITfNbbu02fZwD2DZX5Suwvgp0yA7tcBAfAMC+VeP9+EVhvSxF6LzYA4nnx
oc2fi2CpWVqhU2UASmrY0udvFIP0+ZOW1tcHwNXc9YLHhxLwkGCx87kzAGHt
OjyX+0uAsAnvlPxgADj3/OHtFy0FqwYdn7GAAehp7KPM55ZC0FnLjHtFA7Ds
1WuR96kM/gjvLwypGQCJb9u1ftLL4ND6oaqixgHYymvhSD9cDvW1t74u/BmA
IWOJIrGUcpg79YjhzTaI7UOlrldfVoDFschzwSaDcGJ2o5epeBWk8l25WGg9
CN8HPWRHTatgZl7I/OetQcheTFT74l8Fb4rTHfm9BkFgVHzb++EqQHJloQlp
g1B24CZPRmQ1iBz+PVCwMAjO+Pj44JEauLf1I+X7+iHQlne3+7UNQTXFam5u
6xCocNVOxSggMMkcYVc5MARi6wfO13gjeCk+f6T+/BD4faeYoc21MHGA17Mj
aggOD5nzG4bUwrHHCc51yUPQ3mYTciSxFnx+HLbLzx2CczVKf/oKamGXv8aF
wPohiMpyCS7+Wguq1Ad7tMlD0Oh41954ax28K+kuqTtOAv0/v/ADj+ugm8sh
M/8sCX6nRTBEXtWByM2ZmDhdEnBw9/GcDa+DMoGtvk9tSMArKdO3Pb8OiN6n
Lh1/RQLbAnRq42AdHNWJn8zvJIGQ5TqfVKiHJ8nSQ3GDJEg7dFKxGcufGpbL
fgVSSRAacA6+YfmVRf63akeWYXiMlAt8bteDD++GNxISwyAdeFX8RVg9fO+3
k4h/MAyc4RyPzpHqYd/xaYF3zzBbt3KkTNTDjRBPLs+AYTDuNiwkz9fDP/UP
85Zxw5DeoKl/aDMORDIb8XyfhyElSiPukTQO3O5L2bzbNQI1++18E5xwsItj
ssrkwAhMCclZHcLyz7K4T7v3SY/AF5zo+g9Yfvqv6fjXbLURuDNxP0ckCAc+
B7SgyXEEdkux2nPn4yCwzXYvG24EOM5J9V+m4EDWVuJhS+sI2EXFJVyZxsG3
RcqP0M4RuBTw5IvmIg52irq+EaaNwIdzz3i6NuIh6vGzv8A/Cood5sRZITyk
SsR2Pbo7Ch8VjQaOG2D5fY2N4plHo5DuHM0/aoKH8UuiwZt9R0GWynjjfRkP
0l7ZWhFRoxDZTcV7OODh08+K0mLCKHZOD1T6PMGD0W3PHU+/joJ9TjNP+DM8
zLGcuaveMwqGPuK/w/3wcEz6i9h3+ijc/dWvbBOEhxqf32F0gTFg95mT3puE
B+vdH6dKxcbgeOyThrg0PKzLtdL1OjoGn+/TidzZeKzeHGbl1ByDBFnePagI
q3eOzLpKuYxBvXkX90UCHn7/4Ta0bxyDiuDFG6ZDeNAOsOu83zEGQn00q7AR
PFQdr7B6/mcMkKhHEWEcD/Hh12/H08dA81LEj+VJPNzQL3nRvXscDm0mK7f9
xUP3CseWceFxqJTZ/ThhBQ8Xcq4GM6THgcRng3dYR4CjHJtjd6qNw/e042Wt
GwmwhLMs1bs5DiO3W9XWbSeAo0v+qSuu4xDwWvyH0w6svhdiw99+Og57x7ez
fcXqx/qnuV9fBo/Dyw0Lr+9g9WaA8jpyffk4OOGndvFh9ejKsPG9b7hxYIzs
eXdQlAD33mfO97eOw8fg7KMi4gQwmrq0YXlgHNiKPI+tlyKAYFaqoDIHGdSy
7XbKyxEg0Pxv4rmdZCC0f0wflCcAC7v+IaN9ZHhqWzrqp0gAku2iorMcGaoe
ViXlHCOAyQ69Kq+TZGhYaVeVxervxrrEM4EaZHizuLcu7QQBcvZduJhlQYaJ
u1tL3FQJINQa/7PclgwC3rHnWoAAIY/nLBudyHBxz8V5PjUCuHfG3hj2wdpH
Gs4EYvW+asjUs/1ZZCi06ev9p0mA/NMa7DLFZGhOcFhc1iKA8GRU4ElEhsin
C4mz5wmw8YL6R/PvWH/Pbv9Rr4PV40sRB270kmEzTdEt6gIByOkTae6jZFBw
j/7toEuAdrYPRaF/yXByZB0PSY8AZ4ooKolsFKA8j1ofepEARddO1+VzUaBv
f8awsj4BxLaHaSJ+CjAeS3/uwByBxltbD1JgsoK18LoBATicVI3+HKZAYfFM
ERnzE8HQbqyGhpqLMZ0OhgSgNY1aL6ph7b/4H+rBbP3w5OimCxSQ3ylYqH6J
AJK2jT9pJhSgwfq92Zhn9IzwP20oMFLyVoTdiIDFI/FTlSMF9jn//G2G2U/E
MSHpAQVkcr6ox2LW51p499qHAjnWCg87MfMvPfd0fkuBXWnlPpuMCTBI4rpj
FkGBNzKdTlKYs9s/WkISBfYkjWurY3avENcWy6VAL99BEUPMkFJ4bFs59ntO
YZuMMbMHgfgsjgLT1YfX62LueNTM29NGge9FxUL/uw+LtjNlre+iQO3y97v/
uw+z1x+aTidRwCpu67//3YfJnrg78G6SAi2Wdd9qMS+K/m13X6KAL6fcsg/m
em7/mitsVHBjf/paBfObvzw56txU6LoV5zuKjYfJSOxHKQEqOHm7Lb3CLPRN
8jWPGBWAt3L2AGZyZYnHoiwVllu2eOdh41uYesaBeIIK2z2G0uQwazyxUM81
oMKF6odL/Nj8cDuMyIVdpoJcXegJT2w+uwxcDjxxoMJdaeq5Tmz+HcVfr5x/
SgVz+dqBO1h8KPHsmpB9SQWJkykvM7D4Wf2X0MMXSsVmK/pgDxZfIR3lZcPp
VPjqoX9VCIu/y9Xn0loKqbCjJXCngjYBRNO/hRXWUGGr4sDIKSxey56Ouzz7
QQXNu4EcClh8+9xws7nRT4Veo9d3hTQIoHNpnf5FMhWG//3ZveEcth9I8B/e
yzIBm3JjrbLOECB9R4oA65YJaNP+vc0ZWz/OK7IcFN4JsNBdEjt8mgCsP7RG
y6QmIMLKtfLlKSy+vDwSjEwn4MOZRvs2ZQLM3mQNOnFtAhx6Eq5qKRGg2ijI
U/jOBLSzVrOXK2DxJJluSfeZAH4q51vPo1h8/PzN+yZ3AlIFLpz5KEkAnJTy
axwbDSS2OyoICxDA6ohR0hQXDWo4QxNl+AmwIOdctX8PDb5eYb0iz0cAaZUs
2mMZGlwRsWwVxfa391r7LymY0sCb3UkpjwOLF7tNginpNMj/4thstoAHlpsi
it8/0UCpau9z6hx2Hjmq6a2rpsHBBctujxk8tLk+9r7yjQZHJdQePabhQdln
ksS7RAOHA02rEiQ8sMf9zvHTmQQ9De5ZiTY8JCbONhQZT8JkSXy5VjMeTqZu
Jw5enYRmNpPrNo14uJejwwP3J2Eb0cXlaT0euiqROyN6Er5O2o5al+AhszMN
btAm4bjhm9Od0XgQ21w1lqxFB3hy4lOsLR6mP8vcStSlg1zos9Oz1th55ZdA
iTOkg1T4FdOzV/BgwupPi7pMh9192uJtxnjwXTWYDbpHB4e/JS/DNfBAmhtd
fRJBh099UTMzYlh/B3fwGY/R4bOakwp1EAdOCX4RhhN06JCSEXHvw4GK9SK/
/jQd3smfIyx24aCjt09Q5x8dqN89ZGlfcbCuK0NYjXsK6Gbh1QE1OLBuB5nD
x6bASLjjYFQEDvZW3T7H9nIK5ud327NpYec//9KS09spaAh/3m90Bgdb3V/m
d4ZMQY5nHCP6JJZvHEkRyI6ZApaTwSx8R3HQndQ3ZVg4BcmVRhaf+HEQHmAQ
G983BSfo1ft8x+uB01KZcUJxGsai2WcCn9fDxjJCdorKNFwJPG47+aQelnca
XeM6PQ2pHNHHtNzrgdp2r3VQexq6tlSuDN6oh6YzmUmvrKdBM+lWapVuPfhL
7tX/HTANAruy9Zd564FlaX2Gy+A0nBptYf8QXwfWQ10zXqPT4JLy+KFnZB3U
tuSrvqVOw9SpunarkDrwjrP6kTY/Db1HOvk5XtTBqnrF6h+OGahTPhDJ4VAH
K++cTTTlZ+CwzpGUXKk6+CdK3CD4YgaWTUfVzPNq4TJXqd6hVzOwtf/5PcO0
WqhaeBupFDgD9OszNWfjauFJ84kjBhFY+335Hznf1cLfex8s/LJnQGo84566
Uy0sVeoV0H/MQJvFo1UJqVpgGFRbEURnQcgfby5yCoFPV16vqtQstPelgdsh
BJw2iZfLZGeB73lxYT4vArF7/hZZJ2YhRsgOPzJRA0aBBibBBrNwqG/3H52Y
GshvGta98nQW8p6rxXQzquHmWc5Tcz9m4YSAcPREVBXMNrFUOXXPwrELvSHn
XlSBt+GMylj/LCTnBhJ87lRBhE3nsR7yLJyV3L+cBVXQ4JWoUMcyB3xDQrqF
g5UgXKUk/VZ6DhIOz9lbHayEHoWrAqIv5mCIdPav2NtysF9U5PJ9NQc8cpdP
7HUtB3r11g3DgXPgqL7Omm5WDqyaFeTkyDmsXmVHUiLlIGPOWyGSNwcxGd6H
KGVl4P202Uykew6aW970ivWUgliDcvhB2XlYjPLKq1wphvzXnK+fK86DTIbR
a4P+YlC5OPx0SGUe9KpIpgWoGC52htglnZsHVT3ikWavYvAgTygctJwHThWJ
5QvLRdDMmfxd2G8ecu7/Gw2nFsI9U+7twn/mwfjkFxurkAK4ln4kSnRgHjZu
9lJycSwA40W9g4dG5qGDmm0oqVEAKh/fKsrS58GX6N3wdCEf2Po5LFRZGTDh
5DzuYJYPUfZsSRbSDGievHiXjS0X3pSKSFsdZYDyXhb1ocwc8GJXL7ZRYsDI
99KNkRdzwDbT5/ON0wz4Njt9wDosG47QVinuRgz46SBp9Y87C/BuSwqhTxhw
qyvGYKo8DUoa+GvCnzHgBOIV59BIgwy+45pRfgzoqP4ujdpTIbD8gXlCEAMO
+CTtu9aTAs84PgwmhzFg5byEKuNyCty3LLmdHsUALUUBb7eeZDBfnn2al8yA
t+5i9ONtSXBBb+emwgwGNG5bvjullgSqcfJBJbkMkIZiDeeCRBBRc0msLmPA
oKNjkahPAuwKCZaqq2bAv9fl9eaD8bB5KL8IX8+AB3vSDuqcjAfai8mG5hYG
jG1hjz5cFAMDPzn1278xIKeotP2tcjT8EJPp6vjFgJKYIxNOKVHQ8ED32q8e
Btz+9voUbjECyhsdKV1EBhTzrqtkO/IBsvnf3O8dxr6fs7je8lQYxN7KWiaS
GZAUEjIwtDsUgiub/EiTDJBMKD7MnxsEL7aSucZmsf737CvKzg8A9yubIymL
DGh6YOkV7/0CbuZKCE+uMKBaZESMW9oZLq9qZk1vWGDe7+g7KMyzM62W4Fe9
uI1phekUjWUepvnfk8xY9zJ97Pn+XfeFmTZxsfg+JM50iP5XXZwc01u3VZ3x
0WJ6xTdUmuU+06QHZ1j+NTGdaxmfNuOxuGbTU15ajdVLay6wuiOs8u/vmhc4
zm4oN15es+G3E0p7I1bWHCkseC9wbpXZny2sSmX/secM5e/Af3wNX+mvOM+0
tL1l3J//uCYjqk1ygWmSLP/hz0tMm/Cvm6H/x43rxsv2/GU6p6NM3ek/dr9v
dpn3H9Obyz4EXF9m+km8l8Hb/5j20oGv9D/uMFdO4lhhOvrvr4qC/5iTVOPd
8x97t6RqsK0ybRfj3mH2H3f6WkX4/MfaThpW2f9xlYmMyK//+P/+v7jm/wfd
gdk8
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-2, 2}, {0., 0.16666663046168165`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.5592307845625*^9, 3.55929530115625*^9, 3.559310537625*^9,
   3.55992289334375*^9, 3.559968348921875*^9, 3.56015590009375*^9, 
  3.560682524296875*^9, 3.560690064609375*^9, 3.5607543393125*^9, 
  3.56075735975*^9, 3.560757997015625*^9, 3.560762690859375*^9, 
  3.560765001875*^9, 3.56078825534375*^9, 3.561132580515625*^9, 
  3.56172842353125*^9, 3.56178997021875*^9, 3.561982719765625*^9, 
  3.562046488171875*^9, 3.562069696484375*^9, 3.562354258015625*^9, 
  3.562354816265625*^9, 3.562466005565506*^9, 3.562961820109375*^9, 
  3.563086812546875*^9, 3.56372808909375*^9, 3.563821428109375*^9, 
  3.563839011109375*^9, 3.563945957203125*^9, 3.56398553553125*^9, 
  3.56402201459375*^9, 3.5649255494375*^9, 3.56492966365625*^9, 
  3.565003874796875*^9, 3.5653503959375*^9, 3.565533533078125*^9, 
  3.5663087865*^9, 3.566622046234375*^9, 3.566743886546875*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnW1onlcZx+82ydbJXjpda4tasnXr0vU1fVnaJmmaJmmSJulL2m51s7qu
FtsPujEjiH6ZX9wXRdAPOgj2w7TDF3BzsiFMIg7UgVgQh6JCmCBVcAwcIgUh
5jrneu7n/iX/++R5mifisGV7kue8XL/rXOe6rnPu+9x3O3Z24sL5T56duHju
bOvgU2efvHDx3KdbDz3x1GxR07IsW3Yhy7K/tWb2+8zsr/4xM/vfzEX7sBL9
+83hR0s2NZHhz8TUTDYe6pqrdUOT2fTMzGVdfDwh6aYIW+E9pyeHZjtNz36b
yiYnpyOnafZzOpscmsimZr89L8pO6O4uPDSeHZrzm8JnS0W7UDc9ORkEjVaE
F3RdPq99WpmTXlaRad9ck1vy5lPZxMRU+FbrGE+Kvi72PV41NTGUTU5H4vEa
xZ4SfVvoAdWBzJKz2KxWrccTMm4qYpq9quI40+N5sUkL/mISLuvicS3k5vl+
/VLU0gMhDviHi6mKjKYDV379l6cvffNX9n+2MXw2rXznnWt5czdZ69Wr/8jb
tcV2JnZu3+1//MPf5/Zdce3avz/77W9dKbY79trPpvN2LUWPnynEe5adt49l
UBmjuV2U3SHKIqLp0jNf/Oljr7z8+4IfLiyvVoZqF7jLbcy1ar9oWtZkI7SR
1jXKWhkJrjnT1BOfemnRXITyjQn/v57wNjGRbWXtguE3lkuBoVS7+8XAVDtX
eIdQ7kTdipwQ0PYlAJz+yat/ev4LT7+6ZACUEfDMs9943RaBJQIEYSdviP1v
iQ1SFyes1piu29VU83cFKthmx7sHMPT6L//8ymcmXk4CbKf3g89/7sfXA0BG
LAPMb7QYwJy+7TdQjUTteeO3f/3FxQsvNAplq5mtagJlVyzTD5+63CiUfbfy
60Y1G0ntLxYGrHnrrX9ePX70uUaN5cq5x7+fX6k5aqeL6Ol+NhcxLqycQJlI
E11EmV3MPjWiYIQESpncLGSWEihUNQAF1YnCgJcWhWlcWhTELgY1Ljx6B1C2
otjK0igUyohCDHnz35159Dttb7759kIou0vy9sjwpWJfpLeFUXAVhars4Irz
clyEdREVVkgVfHUCsDH4HwI0F3aeSqxdZNjFhpgDEBc9B0HNnQDgAqtOAFKU
j+UrX/vqz5/83nd/I8aC+a8ThXbHhX8ShbQ+LsxRJwrBTJSK3yVC2V3Jfw30
TTYKhbzhqF2xyjCGKzavFWXpxNJKsS9chShodiyWIVOpi8KNwlhKTaIw4GNi
/hqHQvPFoFTfnUDZpUp+c7oBKCwJRCHkjolYqxOFlFBEhUyl1o0grJhQsfa6
WGRNjsByk+WoUi0SI1CjhzyikFobgML9KKIg9pjA14lCGVEWPxZHpfZOoL7+
5S+9duHFF94o9sX8EQUnrgtVdB+kIwfsFvF79HoBSGAEIO1dNwBqEoD9tAOw
nUjMBhQ5Kky+CyjE79FcxwfqAyBbEACnqwJWh++35afa8dzZQHYCOZEf/c6t
tzPqeKTcFE7AK8otr09h3DGiwgjIqsKrwveWeLbtB8iVU9+mBevshLg6qISy
uEulfIvKIlEdFRa/y1Uzu+X2mlXT7Nm0YJ0dw0/kB9tB7ZayuwdVU+2GishY
KRWj8bSKqs6tmM1MT2ZD7jJN5Zadr+yc1EXLYr28PsveIuuiuvYnqtxcrrLS
AfsCqowwT6lc7qcrZF34fTI8v9FSrq3CI027tg+K/HdEZKNVeeRUU0CLKIt+
0FwwbNA64QpKU+R7aooqpWkiHSsURk4U7OUorAa1oo6Ist1A4WbaETHSBArX
LEeEsxKFy8daUZUlqGisMZFSiEJCdBQue+pEQR5RSNVHhIgECqMfE1YiCutr
A1BIIkThIm1MlKmtgZfhSmxMeK+jOmKVicyf8RkVDhvEhssCdbUxJqQQAHYp
QI8FqFFhhweBgkVHRUQkUIjEUTHjRMFPvDkWtwQKy8Go8GOi4P3eHFunOlGQ
RxS08ObY+JSiwp5DxRABuMS5bgDmmQAkRQdg114TADHkgD0ikkfyjpvK58D2
NrbHKaqEbEgAfL4mAAw4IiKsAwDst0aEnyT8CQ4yInyxiAp6j9YHQAyNiPFx
LFiERoQBEyhkBu+L6w6ikAxKUcVEiTkYEWmGALhunWPBCYr3ReJ11N5YhYvn
w8KxFarigcUl77BwZ6IwgjpREDssjLoHKDj2YaFtAgWVhoVjE4Uc2gAU5BEF
LYaFq6jMsEkYf1hYiSh4kbJ3nSjcgHLUvliFDcOQiLAECrlkWHg0UdjOD4k0
UyvK+2IDshco2NabI2UmUEg93hcpiih4jDdHoixFhbTsZsPaRAD8bkhAE2OB
WO+LXQFR8LuhXMfN9ltIqGqhGxI+5mI7hY8NCi0SI8DCMiTkEQUfGxS+k0DB
FweFRfYBBR/z5tgQJVDYfg2KeSYK0z0o4jyBwggGhTyioIU3R6JUqM1eVky8
h4TxiVKaIX0kUHABR2GddVRXeXNom0Bh9KovUXCBATHSzeUoeO+AcJXOAiqE
puuDxSEBQJAOiAjrxFiQMgdElCRQmPgBEfREYZgDAl8nCuHhqG7hDP2xDBmt
FFU0OaQQALYDcO0ThAX5m0VA9os57QIAduzPNdtSbiKMr1+YlwDVHFZOzAYy
iPfFmkoUNhv9IoYSKCzL/cLFHbVfTFmfCLkECrPRL+QRBRfoE4kkgcKmsk/g
u4GCbb050qhCuatgY39QzD1R8BhHIRUmUBj9QeHHRGHA3hxpVDn7FjGn3heL
g6N6hLF6hVcmUPDU3ur8mWsEw+4HSjVHvKwNnytrPgksvnha6KOOUbYIm/eK
OKLGyFu9wkPWhE99jBLVsDdVq29xBnXKjwbnqxxSm88i8iQVxbrUm3dc6+qp
w6cy9UoPscJxn9pau2GQIqkenMKbYwdZsaM63CtTtPyQUE49wrdXhKWrfEDk
sANihBWVG2JbrTI884BIDT1QGblQDWPJvXWOeq4D9lhUGZPiZbjtGT2Yp3xR
1XlvLi8vbUpNt3pZMXX3iPRATXG97WVYQFSedBRyrKOQkh3VKwywX+C3lqMg
VvU9AJSIWW5GEyjsNdQaSRTy5n6RthIo5Aq18hMFJ9wv8KWokDV7SjNAZT1F
3vCtHNaKxFjEDkPlxwoKM9QtzJFAwbzdoowopRnW7AQKTtOdm/IgAGIfRysH
YeFeyxbhuqqHj0BtMrtEmRrBNhHMnWJeDgKFOegSKSWBgkqdYl6IQlB1ClNu
K0eJK0FGDlGwt9IsgcKhgvdFOnJUv6jaJzwwgcII1O27PqCQ1vflzrm9HID9
jVKOAHH3ioGbGMuCfYmCS+4Tk5xAwWm8L9YmR/ldBHFTk66rUBWjFkNBnV31
A4Wt7V4hIoGCSo5CMiZKHN2wTLnFdmERdVLqqENCsw4RTQkU8kvhWDmf+wGg
4OIdwomD2JBatwkTeQ/s1AgQ56uEJsaCBNYhXJwoDLNDWD6Bwpa5Q7i4o/yO
K3KWP/aC7VcCJR4BIf4QUEgf6sE3hWoXIwgPtoQENggA9PHnALEst5cD4MS7
hR18LH4GIZ7lo4MkUJh49SD4IFBwU/WMfwK1YF+ixLPRdPEECi6uXhFx1LAw
oHrJMIHCnHrf+WdXOQpGUO+eKpS/5Is90Q6RVYgSrzWqtyolCtuBHcKAjjos
DNgugi+BEm9oq0PnCgoGbBdGCGIDaUd5D/gdATBbu/C7xFjgdyqYHTUizLZd
NE+g4HfbheqHgZq/+sy5Z6xQO4XfqfWKKJs80yJ02SYmdGc5Cn7nfZH5HOVP
EKnrIWS+BEpdtonneeTDeFvLg1mhYHzvi00zUWY4M1aYm61ipAkURqBueDhq
TBhB3R1PoLAx2CKMPwoUNNss3GKXQO0SbrFZWMRR6sHsTWL+Eij1MAA8egyo
+U8/FN60kADs6jYJKQSYE5iJAtubY20KYgNplzD0JhFDDvCH3pF/HxCZQRlr
t2inXuc4ApR6dxFlymy7xXRvFGWOOiZcoE1YOYFCuzbhAkeBwoSqv4wsgcIi
2SYyA1HIDG0iuhMohOv91TIbVegfGfLN8g1irh4UKC/DGrZBxB9RsO0GMQcJ
FFLwBjH3jhoX83Kf8KIECqP3vsh3x4FSzREvCqUewL9XqOmoE6JqvQjDjnIU
wn+9UH0cKFSF5iHfRR1rf2uwclZYz1uDrjCu3NYLA7jCJ0XVPbEM+65YljqG
4V/9Wilb6L3Bjqpz50vcPcKIJ6Auqu6OZdjWrXd1yw+6tLr6fUEVsHcLw7mS
p0RVqwjEipLlB4hUsvJS40JvDO4RyaFVGO4k1EVVq3CBhW26Ipt3Ese3BdXR
lrqd1Sos6No+JKrWCSe6t06HzU/iJqvn80pd9XD2OmHBU1DXRme7i5C814n5
uS+Pl2pqSJ4Z1vTCoHrmep0YgCv7cKzCovahWIat0d5yFFYp74tF7SGgrLmZ
LCytH4xlWO33CZSXISd/IJZhqY6M7HSswuWFN8fGPoHCAuZ9sQFx1IeFbddW
Ncs3Fp0C5WW4rlhbdSyzSOh7Gig41lox3QkU2q0VEe+oR4QB3y/s3VWOQrs1
Ql4cTvao0GK10FahukS71cJKjwBlVYYLmq0S2naXo9Cu0Nfkha1VZGQfiVXY
bNwltA2ocL+7S5jIe2Bz5oAz9iNsMd4XG1moWlwVnmjiCLwMm8D3CmhUPfuo
YN8Zy9SRukLBie8UcXUGKGtmSSOIXimM1SNQPaLdHcwqAR8Z2ceICsnk9upc
mWah+QGB8jKsQ7dVR2XzHPamkZE9VkVZ3gqJ41a6RWjeW46CRW6tjtTUDH0j
I3u8mp9yR/R/e8DmzspC84MCVXggzsQGNb2vObmVBcNGRnYu/Gg225onmXvY
7/E19+aKHazYJPYJYF9VWZMQTOndzYcNZhFmoiIsO8+hhAU/ZNx4kWcqhtw7
IGj9VVc0S4aTh9i32SiWIsyipuzHI+0T4UeLDd6kVv4PET8oCPHMocUMXGwf
MnqU1fh/g+BH9iPUvBgLsmX/AXYLtXQ=\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Frac", "[", 
  RowBox[{"1", ",", "1", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.558950820359375*^9, 3.55895083665625*^9}}],

Cell[BoxData[
 FractionBox["1", "3"]], "Output",
 CellChangeTimes->{{3.558950829671875*^9, 3.55895083746875*^9}, 
   3.559050276328125*^9, 3.5591413686875*^9, 3.55929530121875*^9, 
   3.55931053765625*^9, 3.5599228934375*^9, 3.559968348953125*^9, 
   3.56015590021875*^9, 3.560682524375*^9, 3.560690064640625*^9, 
   3.56075433934375*^9, 3.560757359796875*^9, 3.5607579970625*^9, 
   3.560762690890625*^9, 3.56076500190625*^9, 3.560788255375*^9, 
   3.561132580546875*^9, 3.561728423546875*^9, 3.561789970234375*^9, 
   3.561982719796875*^9, 3.5620464881875*^9, 3.5620696965*^9, 
   3.56235425803125*^9, 3.562354816296875*^9, 3.562466005581131*^9, 
   3.562961820125*^9, 3.5630868125625*^9, 3.563728089109375*^9, 
   3.563821428125*^9, 3.56383901115625*^9, 3.56394595721875*^9, 
   3.563985535578125*^9, 3.564022014609375*^9, 3.56492554953125*^9, 
   3.5649296636875*^9, 3.565003874828125*^9, 3.565350396078125*^9, 
   3.565533533140625*^9, 3.566308786546875*^9, 3.566622046265625*^9, 
   3.566743886609375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ApEtad", "[", 
   RowBox[{"R_", ",", "\[Beta]_", ",", "RAp_", ",", "del_"}], "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"del", "\[Equal]", "0"}], ",", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{"2", " ", "Pi", " ", "r", " ", 
       RowBox[{"MoffM2", "[", 
        RowBox[{"r", ",", "R", ",", "\[Beta]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", "0", ",", "RAp"}], "}"}]}], "]"}], ",", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{"2", " ", "Pi", " ", "r", " ", 
       RowBox[{"Frac", "[", 
        RowBox[{"r", ",", "RAp", ",", "del"}], "]"}], 
       RowBox[{"MoffM2", "[", 
        RowBox[{"r", ",", "R", ",", "\[Beta]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.558950931328125*^9, 3.55895093615625*^9}, {
   3.558950970765625*^9, 3.5589510048125*^9}, {3.558951048515625*^9, 
   3.558951128765625*^9}, {3.5589511605*^9, 3.558951210484375*^9}, {
   3.55895125078125*^9, 3.558951275984375*^9}, {3.558951440640625*^9, 
   3.558951440828125*^9}, {3.55895173165625*^9, 3.558951734359375*^9}, {
   3.558951830453125*^9, 3.558951851015625*^9}, {3.55923221140625*^9, 
   3.55923224178125*^9}, {3.55923257771875*^9, 3.559232578921875*^9}, {
   3.55992290721875*^9, 3.55992303378125*^9}, {3.559923327578125*^9, 
   3.5599233314375*^9}, 3.559964292734375*^9, {3.560682541921875*^9, 
   3.560682595890625*^9}, {3.5606826428125*^9, 3.560682644484375*^9}, {
   3.56079310865625*^9, 3.560793118265625*^9}, {3.56079314934375*^9, 
   3.5607931569375*^9}, 3.565075385359375*^9, {3.565086248125*^9, 
   3.56508624815625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ApEtad", "[", 
  RowBox[{"1", ",", "3.5", ",", "1", ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.558950274171875*^9, 3.558950277515625*^9}, {
   3.558950890859375*^9, 3.55895089115625*^9}, {3.5589512166875*^9, 
   3.5589512375625*^9}, {3.55895128009375*^9, 3.558951304671875*^9}, {
   3.559923051796875*^9, 3.559923064921875*^9}, {3.55992321121875*^9, 
   3.5599232226875*^9}, {3.559923340984375*^9, 3.559923342578125*^9}, 
   3.55996429275*^9, {3.560682614328125*^9, 3.560682627984375*^9}, {
   3.56068275196875*^9, 3.5606827531875*^9}, {3.560682790140625*^9, 
   3.560682797046875*^9}, 3.565075385375*^9}],

Cell[BoxData["0.7211451990730667`"], "Output",
 CellChangeTimes->{{3.560682616515625*^9, 3.560682648390625*^9}, 
   3.560682798078125*^9, 3.5606900646875*^9, 3.560754339359375*^9, 
   3.56075735984375*^9, 3.560757997140625*^9, 3.56076269096875*^9, 
   3.56076500196875*^9, 3.560788255453125*^9, 3.561132580625*^9, 
   3.561728423578125*^9, 3.561789970265625*^9, 3.561982719828125*^9, 
   3.562046488203125*^9, 3.562069696546875*^9, 3.562354258046875*^9, 
   3.562354816328125*^9, 3.562466005596756*^9, 3.562961820171875*^9, 
   3.563086812578125*^9, 3.56372808915625*^9, 3.56382142815625*^9, 
   3.563839011203125*^9, 3.56394595725*^9, 3.563985535609375*^9, 
   3.564022014640625*^9, 3.5649255496875*^9, 3.564929663765625*^9, 
   3.565003874875*^9, 3.565086421765625*^9, 3.565350396296875*^9, 
   3.565533533203125*^9, 3.56630878659375*^9, 3.566580628390625*^9, 
   3.566622046359375*^9, 3.566743886703125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"ApEtad", "[", 
    RowBox[{"1", ",", "3.5", ",", "1", ",", "del"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"del", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.558951336171875*^9, 3.55895136565625*^9}, {
   3.558951452828125*^9, 3.558951455765625*^9}, {3.55895192559375*^9, 
   3.55895192909375*^9}, {3.55923046325*^9, 3.5592304640625*^9}, {
   3.55992362784375*^9, 3.559923636390625*^9}, 3.55996429275*^9, {
   3.5606826840625*^9, 3.560682686046875*^9}, {3.560682760125*^9, 
   3.56068276125*^9}, {3.560682801609375*^9, 3.56068286659375*^9}, 
   3.565075385375*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{-1.9999997894736843`, 0.03448045702511982}, {-1.797514863394739,
      0.059033338723078976`}, {-1.5779980005921108`, 
     0.10438919546205984`}, {-1.3730281484342206`, 
     0.17161364522604267`}, {-1.1720789911315945`, 
     0.2638711673302961}, {-0.9540978971052854, 
     0.38595049509106816`}, {-0.7506638137237142, 
     0.5028186775786023}, {-0.5301977936184599, 
     0.6103000463690024}, {-0.3137524683684698, 
     0.6824471831644405}, {-0.11185415376321774`, 0.7162554929067565}, {
     0.10707609756571745`, 0.7166647170325438}, {0.3114593382499147, 
     0.683013585621383}, {0.5118218840788477, 0.6178246383402424}, {
     0.7292163666314637, 0.5144604531495927}, {0.9320638385393418, 
     0.39885438652991}, {1.151943247170903, 0.2744098059738044}, {
     1.3678019609472, 0.17368642760377978`}, {1.569113664078759, 
     0.1067579034412914}, {1.7874573039340012`, 0.06062323731320857}, {
     1.9912539331445054`, 0.03529058992610894}, {1.9999997894736843`, 
     0.03448045702511982}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-2, 2}, {0., 0.7166647170325438}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.560682787296875*^9, {3.560682849296875*^9, 3.560682870796875*^9}, 
   3.56069006971875*^9, 3.5607543436875*^9, 3.560757363375*^9, 
   3.560758000578125*^9, 3.560762694375*^9, 3.560765005390625*^9, 
   3.56078825875*^9, 3.561132584703125*^9, 3.56172842575*^9, 
   3.561789972015625*^9, 3.561982721546875*^9, 3.562046490046875*^9, 
   3.5620696983125*^9, 3.56235425996875*^9, 3.562354818015625*^9, 
   3.562466007456131*^9, 3.562961821875*^9, 3.563086814515625*^9, 
   3.56372809084375*^9, 3.563821429875*^9, 3.56383901290625*^9, 
   3.56394595890625*^9, 3.5639855373125*^9, 3.564022016296875*^9, 
   3.56492555421875*^9, 3.56492966784375*^9, 3.565003876859375*^9, 
   3.565350400328125*^9, 3.56630879071875*^9, 3.56662204996875*^9, 
   3.5667438906875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"ApEtad", "[", 
    RowBox[{".5", ",", "3.5", ",", "1", ",", "del"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"del", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.558951336171875*^9, 3.55895136565625*^9}, {
   3.558951452828125*^9, 3.558951455765625*^9}, {3.55895192559375*^9, 
   3.55895192909375*^9}, {3.55923046325*^9, 3.5592304640625*^9}, {
   3.55992362784375*^9, 3.559923636390625*^9}, 3.55996429275*^9, {
   3.5606826840625*^9, 3.560682686046875*^9}, {3.560682760125*^9, 
   3.56068276125*^9}, {3.560682801609375*^9, 3.560682888828125*^9}, 
   3.565075385390625*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{-1.9999997894736843`, 
     0.004414314108949354}, {-1.797514863394739, 
     0.010762058662526027`}, {-1.5779980005921108`, 
     0.031084767806067518`}, {-1.3730281484342206`, 
     0.0878213088342134}, {-1.1720789911315945`, 
     0.2280160944701097}, {-0.9540978971052854, 
     0.4948939803498167}, {-0.7506638137237142, 
     0.7362834709889096}, {-0.5301977936184599, 
     0.8826293632198606}, {-0.3137524683684698, 
     0.9403953743449704}, {-0.11185415376321774`, 0.9588605380328612}, {
     0.10707609756571745`, 0.959056071371757}, {0.3114593382499147, 
     0.9407447019165796}, {0.5118218840788477, 0.8900048986172701}, {
     0.7292163666314637, 0.756006318584013}, {0.9320638385393418, 
     0.5243023976475029}, {1.151943247170903, 0.24842541569061963`}, {
     1.3678019609472, 0.09015918584609862}, {1.569113664078759, 
     0.032501910729433786`}, {1.7874573039340012`, 0.011275093692369217`}, {
     1.9912539331445054`, 0.004579148439996742}, {1.9999997894736843`, 
     0.004414314108949354}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-2, 2}, {0., 0.959056071371757}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.560682893328125*^9, 3.5606900716875*^9, 
  3.5607543454375*^9, 3.560757366859375*^9, 3.56075800403125*^9, 
  3.560762697734375*^9, 3.56076500878125*^9, 3.56078826203125*^9, 
  3.5611325883125*^9, 3.561728427578125*^9, 3.561789973609375*^9, 
  3.56198272315625*^9, 3.562046491640625*^9, 3.562069699921875*^9, 
  3.56235426153125*^9, 3.562354819578125*^9, 3.562466009003006*^9, 
  3.5629618234375*^9, 3.563086816140625*^9, 3.56372809240625*^9, 
  3.56382143146875*^9, 3.5638390145*^9, 3.563945960453125*^9, 
  3.563985538875*^9, 3.56402201784375*^9, 3.564925558125*^9, 
  3.564929671578125*^9, 3.56500387859375*^9, 3.56535040428125*^9, 
  3.566308794265625*^9, 3.566622053328125*^9, 3.566743894390625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"ApEtad", "[", 
    RowBox[{"2", ",", "3.5", ",", "1", ",", "del"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"del", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.558951336171875*^9, 3.55895136565625*^9}, {
   3.558951452828125*^9, 3.558951455765625*^9}, {3.55895192559375*^9, 
   3.55895192909375*^9}, {3.55923046325*^9, 3.5592304640625*^9}, {
   3.55992362784375*^9, 3.559923636390625*^9}, 3.55996429275*^9, {
   3.5606826840625*^9, 3.560682686046875*^9}, {3.560682760125*^9, 
   3.56068276125*^9}, {3.560682801609375*^9, 3.56068289365625*^9}, 
   3.565075385390625*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{-1.9999997894736843`, 0.07838313605436473}, {-1.797514863394739,
      0.10038552394607535`}, {-1.5779980005921108`, 
     0.12884603782585655`}, {-1.3730281484342206`, 
     0.15922552035237802`}, {-1.1720789911315945`, 
     0.19143270787261008`}, {-0.9540978971052854, 
     0.22704237840628444`}, {-0.7506638137237142, 
     0.2584510175958696}, {-0.5301977936184599, 
     0.28748008042701}, {-0.3137524683684698, 
     0.3080761056566798}, {-0.11185415376321774`, 0.31828967690359017`}, {
     0.10707609756571745`, 0.31841614148370967`}, {0.3114593382499147, 
     0.30824370445169813`}, {0.5118218840788477, 0.2895697245778645}, {
     0.7292163666314637, 0.26155198045771216`}, {0.9320638385393418, 
     0.23057707253209186`}, {1.151943247170903, 0.1947297574194872}, {
     1.3678019609472, 0.16003909854719828`}, {1.569113664078759, 
     0.13009297043543414`}, {1.7874573039340012`, 0.10158640930775248`}, {
     1.9912539331445054`, 0.07924821421991493}, {1.9999997894736843`, 
     0.07838313605436473}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0.1},
  PlotRange->{{-2, 2}, {0.07838313605436473, 0.31841614148370967`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.560682900140625*^9, 3.560690073734375*^9, 
  3.560754347296875*^9, 3.5607573705625*^9, 3.56075800775*^9, 
  3.560762701375*^9, 3.560765012546875*^9, 3.560788265609375*^9, 
  3.561132592765625*^9, 3.561728429453125*^9, 3.56178997534375*^9, 
  3.5619827249375*^9, 3.56204649334375*^9, 3.562069701671875*^9, 
  3.562354263234375*^9, 3.56235482128125*^9, 3.562466010690506*^9, 
  3.562961825109375*^9, 3.56308681790625*^9, 3.563728094125*^9, 
  3.5638214331875*^9, 3.563839016265625*^9, 3.563945962140625*^9, 
  3.56398554059375*^9, 3.564022019515625*^9, 3.564925562359375*^9, 
  3.564929675671875*^9, 3.565003880484375*^9, 3.565350408265625*^9, 
  3.566308798109375*^9, 3.56662205696875*^9, 3.56674389840625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ApEtadG", "[", 
   RowBox[{"Rrms_", ",", "RAp_", ",", "del_"}], "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"del", "\[Equal]", "0"}], ",", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{"2", " ", "Pi", " ", "r", " ", 
       RowBox[{"GProf", "[", 
        RowBox[{"r", ",", "Rrms"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", "0", ",", "RAp"}], "}"}]}], "]"}], ",", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{"2", " ", "Pi", " ", "r", " ", 
       RowBox[{"Frac", "[", 
        RowBox[{"r", ",", "RAp", ",", "del"}], "]"}], 
       RowBox[{"GProf", "[", 
        RowBox[{"r", ",", "Rrms"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.558950931328125*^9, 3.55895093615625*^9}, {
   3.558950970765625*^9, 3.5589510048125*^9}, {3.558951048515625*^9, 
   3.558951128765625*^9}, {3.5589511605*^9, 3.558951210484375*^9}, {
   3.55895125078125*^9, 3.558951275984375*^9}, {3.558951440640625*^9, 
   3.558951440828125*^9}, {3.55895173165625*^9, 3.558951734359375*^9}, {
   3.558951830453125*^9, 3.558951851015625*^9}, {3.55923221140625*^9, 
   3.55923224178125*^9}, {3.55923257771875*^9, 3.559232578921875*^9}, {
   3.55992290721875*^9, 3.55992303378125*^9}, {3.559923327578125*^9, 
   3.5599233314375*^9}, 3.559964292734375*^9, {3.560682541921875*^9, 
   3.560682595890625*^9}, {3.5606826428125*^9, 3.560682644484375*^9}, {
   3.56079310865625*^9, 3.560793118265625*^9}, {3.56079314934375*^9, 
   3.5607931569375*^9}, 3.565075385359375*^9, {3.565086248125*^9, 
   3.56508624815625*^9}, {3.5664843504375*^9, 3.566484380984375*^9}, {
   3.566484418046875*^9, 3.56648443875*^9}, {3.566484482359375*^9, 
   3.5664845160625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"ApEtadG", "[", 
     RowBox[{"0.8", ",", 
      RowBox[{"DAp", "/", "2"}], ",", "0"}], "]"}], "/", "DAp"}], ",", 
   RowBox[{"{", 
    RowBox[{"DAp", ",", "1.5", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.566484530234375*^9, 3.566484579734375*^9}, {
  3.566484627328125*^9, 3.56648468896875*^9}, {3.56648475634375*^9, 
  3.566484757265625*^9}, {3.56648480975*^9, 3.566484824390625*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwd13k4VV0XAPBLpVBkKENImgwlYxFZzZIiRCnppYgMZZYyD8mQXlIqFZFk
SChDRZEiJFNyDCWEN2We777ut87313l+z3nOveuctdfaa6+xvmBsw8lgMHg4
GAz6Kq5RgpcZmNnid2zTeCs0BjDrktC3mCqNpuiIT5r3dnHMQOmthP3+6LkT
BarBnDMQPO0p0YimfHPOci2aAf2w0CteE62Q8D7541KeGaCIIF/ZZCusMAyL
EBOeAfsJDW/DmVZYbmsoqCo7A4pPuNzMWa1wNrS0vNJkBnYVpVwZWUzB3GJX
yUtXZiBUrMDyvAAFV111V1umzoBcQO81Y3EKXOpmy1K/zIDvsCXr+loKHkSP
8C2ZmYH2dRMKVQoUyOpUkNq1s1DV1vt3jxoF6S3F/34wmAUNkRUC8toUODSO
17d5zsLbdav/27CHgsi3PLlGj2ZhzMbP2uggBUP8tlq/qmdhbj5v/uERCnQP
9Dhmjc0C9KZTbmYUzLvsgK+SczDvxvOvlQUF0/Ptr8X3z8HhVQbtkVYUGPge
o8pc5oBDfqz5rS0F93om7icmzkGSGfuvhwMF8tktS29WzMFLHjWuwAsUiNjF
S/wdnoPZyl1fgtwo2B+W0GItygTJxHjNPk8KmuK9lbfvZYKuYulyZR8KzKJ9
VPddYIL/+9/2vL4UrBp498PxNhP4rk0PW/pTcMhjcuGqBCYsizpqZIe+wikv
/wn9+kNWlgv6u0Sc+/q7TPCYNzQKQScZ2XB/T2RCjrO98VP0utfcqoaPmNCX
sFFtDL3punGYcjYTxmtqvPwDKNBR6900Vc6EU77R/OGBFJDGsoqE90xo2rHD
MQZd7PLQQquCCTUPS97fQqvlnIgK+MCETDXlM4/R8vINgzxVTEgV+32mHC0i
XZqx+jMT1K63ODLRI7wJsnrfmJCho/HAPoiClB79dYmDGJ+fYNTWYAoYPB8j
tP4wYahgV4A22lJp52gbWtA++MJutKivWqnYEBPSxAEM0NdXSh6/PcKEs/X3
U2zQPnpDkbGTTKDc5ALi0EY5N8bD2Uw4toUjYhD97CvPCVkGgcscf7pG0EtJ
yLtK9Ef9EZUp9McDl6K5OAk0yu6vYoRQoN1ttTFkIYHqdZuLVqBlV6ie9Ocm
ELNBLFsHzfb5Wu4hRGB3xOifKLTMiqYcGWECTtmTy2LRe3PqE7+gjzzYIXcb
HdFT4ym3kkD24rsGyeiVh8rlO0UJjH6OOvoSrSiZE7tXioDy14TDHWiLt+HW
QnIEYm12Tq0PpcDfPMzwHTqET+8fefSj8WBtJ3kCVj4PKhTRAxv9V1YqEKgv
VrqyDe12w6PaR5HAn5y5tAPoCCtrlW5VAhNwZtAeXbRAmzNXhwC3qa9yOtou
p9vKGAjIyPmnZaJFT14rG0cfZMSuzEF757UEbN1FwCR5sP8lWsPKhf16DwGG
gIfhe3RhaRr5eICA7FshlU50wSWB6Q5jAmu0xHSXhVFgu77IzM+EQOudLKnl
6JUNlgWrjxLg0Ds+Koj2lM3ysDYlEBw0e1UUvfXb/on+YwT2Vtr7rEW/VLsy
OmZBYLJMzV0D/WK4b3DJOQLCQ8tKLNHy/AKNheiLHe82WqEfKmoV2dphPuyK
o86gI5xiQirsMf7gK/vs0KcHt0kGOBJoGDR2dUHz9IcbTLsQ+PUusDgIHcCV
r5bmSqDoUm5VCHpyfae4qRuBAW+FxjB011nl/jx3Annu7KYIOr5uyt/Zi4Bc
xJa4WPQ/3+Vzf10hsNNllJ2EbmEdvX3Tl0Bk2ED+I7S+pL/vHj8C7yMVrVPp
97Vo0kv2J+B8Iz37CZq37XK3RRCBc1kWjGd0PLOPq3iDCTw+3xSWg54SrX/2
Cv3D6d7iXDqeY+sui4YS6HCSnslHF3ytFWq+SkDPjyu+GL1pcmo2KJxAxnX+
oVfoZOE1XcrX8L6m46436CgTj6yYCAJ/r675Voq2bpDcpx9NoEI9pPQ9etln
Z8/yWAKFmx18a9Ey7uoKznEEdEc1vD6jNVaRH2I3CSiaxznU0c/bX9NziSfQ
rzS8p56OZ1GqhHQCgeTXB/Ob0DVZ5xtq0HWnQgOb6fhNlMO87hDgbDM4+JV+
/0elw3V3CVhejqlpob+nDlXue5+AjtSXKArt8euhl9wDAv8dCt/SRuc3ynbT
V7RLZGMt7Zdt4/GbkggsNFk13Y6uDnx1sBUdbS8e0kH/n2wgOzgZ85mRydtJ
59+Lz779Ea7XT6E839Grpb5KXk0h4Kv6JZC22od7jSqpWL89meO0TwvJaUc8
JpCmJF35A+3+anhEPY3A2Iki2S46HquCxz/RMn29IbRf5Ozh10wncGg72fQT
/cmMp6IXXX+j35v2d1a9942nBIzO2L2lPZF6e7N2BoG7M36MbjT3IcvufrTz
bQVt2lLj627HZeL9MGdX2mp3B/UhC7/30gMptPV25TEG0RIuRXW0LQe8X97K
xnqfeztB2y0Gzu9+RsBjyHJFDzp8K9fqIbRifLwS7QedtU13crA+1c/up50f
Ehe+7znmX7jGjHaVwokdo+i1l6utaH9vlB5LzCUglGN9jvb4pf60A3kEjk7H
/d9L1jw7OYEuumtpTVuyyn15Uj4B3q7yY7RVLmh90H9BQJqvTJf2gZWcPtPo
GgdzFdqnSqoUU14S6IQoEdquZ2N6DAoIrG8wn6bfJ5zXLGEO7Wdb3kD7fp7E
4bRCAi/2f0yjnWfew2FcROBBkY0n7UpGRgELLbwgeSftjicXHZ4WE/jt6L2I
9pjBNmnTVwTGtf9U0PlYPMVqZrzGeF8RP9oS9yuuZaG5FTJUaavsjdQ5/oZA
WctEN51vi1jR9JwSAlWz1sq05w+GfzEsxfpy3/qNXi9JC2amhtE2Nie9af9y
/7ZP6R0Bw6i7WfT6Ct+s61SPfq3+EmjL9xXcvFiG77ddpo5er87HbvU8L8f4
tCY66PW8fDkXr9F7ApmZ5qdo51V5qIyiX1sIUvT6n9Y0DVT+QKDPzq+cro8A
CeHVeZUE3rrpnmql6/lr8H7jKgIBGoeLvqErosedxtB5POl8tLnZjW9UqglE
lJzKpusz9ue/J/JrCZQ++ZLX+P/1xxFk8hnrWSZkoAH9zdjl6Tj6hleMGG2J
iiMzql8IaN3MdPqCfpzGf+tFA673X+zOGjrfp/1LjjZiP/N2GapG/xYZ7p1A
O+dpzX1CK16rU1VvJlDCaltQhS5yiG542UIgZaf+D7o/VSvxLitsx/pvXldI
9zfH/3zUjnUQeFWu5Uv3P75Hv09Oo2eHn+kUoU2EqjO2fcd++Dcj/yWd/8nw
A0VdeL+MbfMcPfSKK6T4F+4PSoZ/6P5s1j+rfK6PwBMXPd0UdKnQ3x/C/QSa
VjUlJqOjHZu0Lg5gvTTGb3tA91uppPENgwTy67oUbqPPB2qeuTmC/dT4M384
ujF7k8DuUQKid7qE6P1ke9vqt8No066rgvR+w63KtUp/HPvP7Ti2Pzq9t7GR
Y4qAQ96TBC90n67j7gtMrL9BzkobtIH76REJgvt9vrc7vd8VJBk/qEbnrrgq
Qe+HobMac+vncT+tdrawQK/LXJTXwWDBIU7Xe8Z0v+Z7uOYgFwsWLwpfqYPu
bG5grBdgwdaNk5wCdLyCzmsq0Za1mtv40B+P8Oy2F2TB4bF6W17089rdwdlC
LOjLmS5chA6pyF+0dSULhnw3y8zhPCD/Ip5HdxULcj84r+xGe8aZC9uvZ0GB
yKD/M7RDw6Qa7wYWLG8cl6Lnj3/4Y02z0XzXzIqfoPUiq2+NbmSBT4d8VxJa
IlhLzEeeBWvSVkzFostdJaUit7Aga7PsHk80v/HPjdmaLPh6tveMJjpVRFzk
0HZ8PjcpSJ2eXzqNuQbR8zf/JCqjre0qemW1WeDGqVYhh37h9yQ5VYcFXSlX
O8XQ5plOqxL3sKD5nJvWLM5nKQvn+CIPs0Bcc+DxC/S2QsEpOysW6PYl75JC
x47UOaywxt9X16FE0X/kIn+WoV0kch2E0EmJCz6Ln2WBWd2qwCXoJUETKbW2
LCjOXOo8hvNo66EWIyVHFmT73DvygZ5vu+9kT3uywK/Xdvs5dMmyNTZhUSx4
Ehz4/B7O06nHww5vjGbBAa1213h0VMqgehU62+yjUgz6hGYBF08MPp9i9DAI
PXVWPz36XxY4Mfbo0vP4ljcegzdvsSBiTUW5Ojr5fLVLShILTL+12dfg/B5a
6eb37gULqtYph/6H54VM1xQNiy4WJG9vq33vR4FQoMh9Ye55eMjhqX3pCp7n
vLLTGcrzoD14/sLUJQo2n5Y2NbCYh+bqIvsxPP8oZHzLLAqZh5DLDukdeD66
2ueQEvJ8Hkrk5i5tv0gBxSOzO6R9Hn4+3ix92hH7XaxEZNICNtTdz/oRYofr
g3fCXWoLGxb0JDsInKUgvp+fu/gYG4r0R5rST1PwLvPw3qv+bDDYPHBH/CT2
Fys76cIMNrg+O2Deb4rx+lSmLWhiw5IAdYV6PA9qhSyoy51nw2hL+R4efQoO
Br7jKkRb8AjEcKOP+/nCG7SInmXbErSn9/Tzj2jvgcmLi9HPHQfj2tGMHLEH
C9EbTJvMF7HZEHFSdWYez5/LN6T8Oo5evjUncxy9eu0/Upbovc3fp8bQitKS
x86gm3yX7aatL367ygktOH6udQQdxheZGYQWsBVYNIRmTrm6ZKFjnbdaDqB5
JrZk5KIHys2e9qNFR/90F6DTZDwn+tBbB22PlqGPLsyL+IW++OPEthb0rSNS
hd1o/w6Ri+1oRcY2TtrXqeb0LrTya4PDP9GZTQbig2gvk8s9P9Cv6nlNRtAl
SjcUaVd9roqcRF8US730Hf2tOrRiDh2zrLCiE91XuZvFRkss+8RP+3/LVNqD

     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1.5, 0.39},
  PlotRange->{{1.5, 2}, {0.38984211487036147`, 0.39885792841947887`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.566484682640625*^9, 3.56648469153125*^9}, 
   3.566484761109375*^9, {3.566484816984375*^9, 3.566484828515625*^9}, 
   3.566622059703125*^9, 3.566743901390625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"ApEtadG", "[", 
     RowBox[{"0.8", ",", 
      RowBox[{"DAp", "/", "2"}], ",", 
      RowBox[{"20", "/", "56.73"}]}], "]"}], "/", "DAp"}], ",", 
   RowBox[{"{", 
    RowBox[{"DAp", ",", "1.75", ",", "2.25"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.566484530234375*^9, 3.566484579734375*^9}, {
  3.566484627328125*^9, 3.56648468896875*^9}, {3.56648475634375*^9, 
  3.566484757265625*^9}, {3.56648480975*^9, 3.566484865578125*^9}, {
  3.566484912359375*^9, 3.56648491603125*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k8VVsUB/BzSSEJiURoeKEnhAbEOlRKeZIoKoUoT71Eo0qlhJAMKWMi
lcjUk1CZEpFQHtcspFAZQiXX3W/tv+7n+/mczzl3773Wb++90MndykWAYRhJ
DsPQ3/lrXuAPD5xvzLzYOJML7y9O1txB56sXCQ+iAyv1Yo05PIj4NBksJMaF
37tydS4L8MDRTDJAF93snek8XYgHCZGZm8LRUS8Ty8VEedBxu2nUfBYX5m71
C5ST5sElt9rvheJckDiwVUpHlQffuF9iIiW54HylsLRiOw82WC53vCiL75/h
ucDrHA9Oan5e9lyBC/6eG5X2JvMgRDjOPGohFzxqJkqSa3mQ0S3XErqUC7ev
DYsL/+JBVze/7OsyLqgalfGqF0/BSHpHgq0mF1Ia88NeWUzBubcySk46XDj0
frSu5eQUxEHt3q5VXAgqEs3eljQFd5bGVDnqc2Fw9gGD3qopOKucfNLRkAsb
N/UcfvR9CgQsGyokWS7wPQyhYQEf1oZlWT0x4cJPfuuz+aZ8gB23HfvXc8HC
e2dziQcfBsqOGQlt5EJsz1h8XBwfNpf9E1y7iQulblln18bzYZ9aUk4Dum/k
kF0bOjZoWnMrWpfpkVZI4EN453aZPnS1wrug2EQ+3BxU3s+Y4fdt0r1i7vOh
YjRygxba6bWLTVQWH+ZJ/tC4hl6W3ih2o4wPR60/xhps5oJMylwP41d8iB7d
bWyMFrhr3TCIDt7i0G2Kbo56H29WwYcnfbNlrdABvjUapJIPHuoSW1zRvbvL
Ld1q+TByoag9An1HNPcG28KH8n81Mj+jg4XGf31Dn+yOLf+KPs3o2se28iGt
O7Z5BL31R/YfP9r40Dzf5vskmt+VnpvWyYf8kuzB2Vu4sCf/XpNMLx907xvN
WY2WdY1U+DbEB/8WntgldOhx79GQYRyfT5OZH1rYx6VKa4QPXOi4FIj+Hb3y
9PHvfBC659ofjm5701A/OcYHJVfvgLvoJE2ZINHffHC8Wylehtb4eXNCZRqB
h3GChgLmXHggeKGuEt100J0IoZUlDj44JERg5wbRQhG0pNpqm8zpBO42vtWU
RI/t4matEiFwLSO0VwldUCjrukGcQPZc1Zi1aFO/qEaneQSmBnNUj6F9p0/T
lZIj4FTv/PQkutTPPawEHRuUYHwGDf6m5sryBB6b5G7yQa8JGCtpX0Cgwe7I
wutotUDLdNvFBNjElVMP0WIhwr4WGgR4B3z3taE3ix/vmkKrGo7s60QHhHQa
pWsSGDIe2t2NFrqeOzFzBYHPSQmmfWj+dWf3Sh0Cdtu5n0bRw2HFu9brEdD5
VWMl+hcX6iNPr9BfT6CjfF2LDvpx/EX7T2j3zibjVejQewFXwzcQWGugcW8N
2vxJVNeAKQE/7/n7DNFl/+WFxZoRyDrGTzBF58yZGOFZEHDcp7jDFh0uz1F8
uJXAoFmN1y700cUim20s8XtnjaP3oNV15JLStxEYPun5xgGdbKVntdeagJjU
tClX9I0wr8dFdgS+LJCIPI32jPbpOLSLwK6FM0+cQVsmXhWdtxvff7Ta8hxa
LDva6egeAq+eJE1eQPvW5Ust3EfASumuoj/6xOzfnpecCXg9XxBzA20tK5Cg
4UIgX+3GqptobSXRNy1o3776mlvoQY35i3UOEligkPU9Bn3AQr++528C3vc+
zEhE77h2RmeDO4HVN8xdH6FL7v/5vhctreOamk7HV9x21O8ogb0PWvsy0AKj
RhkVHgSOplftykZn2AqqbT5OoPTsW6lc9IwlwYpbvQgQ34D6QjpeQ8MXQ+j2
TzqtReiOHYO7Q88QEI7Q6yym833VMvrdWQJ3Dlq3laIdhqSlrc8T6LaoTi1H
5xXEi9hdJnDkwueot+jF/1mkTKBfjZsdqEGHfCOmMb4Eiv8U0apFOys7+bZe
ISB0/HZeHVrSbymxDyDw9KXq7Xr0uQRuPB897coJi//QfXkBaxOuEqhhlSep
C78MeH0IJLBqQ6hZI9ptW+aY0zUCqbUdBU3oBjeHCMEQAl8fK1k0o1lfSe1k
9K03Re3UMk+PufdeJ5Cgr/i9Be1Tt0TcLxTnp7PtZCv6a3/Do6VhBCp3Tv6k
LlVYM3AwnMD8vbZDbejlq/oDhCMI/GFwy6UdHbU1RuUh+l7AqibqI5d4zgM3
CFyQuvW4Ay3fV9x5+BaBRK2PBh9ofZ8YnyYfRUBi4ZU46nMCy5ZVorcv7/1F
3aEQcfyPGFxfp57kLrR4akV0PXr6kM8YNazmFfrEEkhz+ADd6DvbXEQ64jBv
Ctorqes6ojWC49EzvIV70JzDNdv1bxM4JtBuQq09IeDVh+5omzpN7eS3+vbN
BAI2lZ2p1OFzDr9cf4fAvN+Xmqhf3rnT9x29P/Ez5yN6bHnDrMREAqdGZqlQ
L3kmorM1iUCQwo+N1NabjGyn0P3Wd5yprzR4eqfdJVBRLeZNnev0IMkumYBb
rkEY9aeh1ooZ9whIrl+eSC3jLfHtCZpJ6XpEvVF0g5TzfQIe0nY51Kdvea2W
eoD5+CziKXXKkow9xWimLiyXuim72+dICoH4y9uzqUVA9oHCQwJvhJsfUOtX
b6muQnPDFsVQu9ldHDmdivW4TSuAOuZTjoxKGoHw0wKe1G+O9Rs0oN/qR++k
5jGKjpcfEfhVObaGWj3Eym9FOuaF7VwZ6j3y/mmdaKN5k4N0/q6lPKu7loH5
YXD/JXXhyuFxg0wCGeMyN6gHS5fID6ArTv3lQK1oacdGZeF+MGamSr21/ZqL
aTYBk9tiX+n6Zv38kZn0GOvduPcA9QffPxss/yUwnjC5gFpSyuE3H+0w1lRH
68VTvXL97icE3m3qV6O+mz/1t0gugRPpCnW03v4z1b7+FP3PO1lP6pWOsc1z
8gikKx942EnzaLCWX4IOy8o3or55dtqSo/lYn5UNtbS+f0X+c6S6gICGvWsv
rX/VxUkRZ54ROGzY+Te1XVZjnupzAsHuSgO0fwqqQPDKC5zPcF477a+BncdV
dQoJRPZFb6OW7035qwsdZscpof15jkhGGRYTuLpDM4L2r5HuR/UfpVhfhrOE
uHQ93peURb0k4DKW7kTzIN8jYY9BGfa3S/LzBrRu5q7gi69wP1KIcKH5sWzZ
uy+irwmcsTkX9I7my+uMy+now/a1b2ge3TsYLG9Zifl40EuYWvnexi2RVQQE
1OpP0jyTVS5MVXqL32tMVHlD568w1qQUvdk9e3MV7R97rxbnGgKvreTcKmn/
xuqKptbifMZ/j69AT5NJ+1v3PQHtotrml+jhmVGqZlwC/tK2Sc9oXqeeKP6C
rgklgQXoQ2bbbUOaCHz/zDmaT/vFTzygvhnz4I2s5lN0O+fKZ/s2AipdwT6P
0VU/Pe57dmH+riw+lULXu2fLkrgvBG5w3VLD0IxoeaDBVwI/tgQtDUXv1WJH
WtBy9ZoJIeh53rqFcoPYbzlCfkE0v2UW2N4aJrCM9KldQZ8xGwwKH8fxRGRW
nUJbZYaOBhACgSVbPOj+2+QmtFyaYVjfUL3zdH+eft7kw360nVmW/w6a/8nP
TQU5DOszRy/Uitb7SNYcEwGGzTB9fmoz3Y8Do9OLpjHsQom0O3roiy/cugpE
GFbjvN7uuXR+A/t3Sooy7PC7tFdSdHw7XWsOos2bZ6tLoMtHXJ5Jz2TYntfp
X+n5Q2ypY+QRMYYVuGlqyKBvhew0WzSbYacbyioM4HklY9/67KvSDFt95vq7
AnSx+kuVD+gZa6IKnqLfTRjfXjWXYee0RCXk0PNaBAT1oEvCL9lnoPVf67sY
yjKsg8lUSiK6XGuF3Igcw17/XXDe35yuj6KPrRLDsl2Pl1qic3aOaD1EDys9
qDZHB6eXfZhAfx9e4G6GXmt3iI1VZtjJgYiHJui4rDzSvpBh/0q5N6aL3rNv
+/n9Sxi2+/rlnnnotucBZ4+oMWyRw7o/OvA82npq9ISvDsMKb7tvvBd901+4
vxVtrFKdYYe2vLVgj44uw15w+ihrgy7P3WjSjc5t+Nq+BZ01HivOrmLYMxb7
9fTQfsfWP5hcw7Acvzkac9Da7pFNnkYMu1qgf3YZPd8fWG3gaMawVtyUYjm0
VEHM3KfoZkF5U2l0/Cz+kNhmhv33cnaFOPpxTllyHnoda14kiG4XsBKXMGfY
Ksbo4je8b2gnHO4qtGBYGdbQrBjdxk30V7Bm2K5K8ssJrWUm9h93L8Pu3GfU
Eof3GS97wdI2T4ZVNfGIFsD7kceA68XwAIbVL9E+IbqBC6IPhyMa4xh2Zbri
Jx7er27vFjmbk8WwZa+D35fj/avLL1R7XTnD7lv5w0LViAuvevTAoQWf/+0T
esmAC7b52xQ0hhn2s2LI80NrcL2KgywCp3HYlwPH19ms5MKzZzusL87jsPlf
6tcqanMhWjN0mYoGh23tHDI+rIH91PDFZo8JhzXLH1z4Gu+TpqNPtpnYcljd
wjXyiXjfdBeSXFj6D4c9fTc3zXYRF/TMQjbU+XDYj5tVXP9UxPkSOqN//RaH
naEWL+Yph/e3UX/ftjQOu+znUGmLNP7/hqVJL4s47MRWyw5NCcwvLd3Q3Q0c
1iF5kd2wKI7/xf56n34OqzckPK9TCPutlPPZlnBYVS+TVdoMPs86XN6NbhH8
98oKtHpRodJetE3nogYttMHzs7b70SkBzHFNtG3ueOU/6Lzkf7PV0RGp/Y8u
obsEJtRV0MIR7zwfoTPtmMUK6FBJrdmZaBH+Lk95tGxoSFo22mA0p2Q+eum1
LR9z0XPqDjjIodf5v7IpQT/dXhovgz5/Nn9NI1rqsu08SbTQb9mGJnSlbspB
CXTw6ZMeregdq3/mzkbHntBJ/YCe0IiwEUfnuafLf0Ef6ysNn4lmB2fmfUOP
K8/qFkVXHHazHqbjTd2xgrrxb5Vr4+iEzM+1wmj7vitqv9DX/9RUov544OOr
32j7XyeOzEAf7jVxmkILyjx/MR09uj+RT9BXfTmzqP8H5hGCxA==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1.8, 0.36000000000000004`},
  PlotRange->{{1.75, 2.25}, {0.3593764426241895, 0.36412923743676645`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.56648484965625*^9, 3.56648489934375*^9, 
  3.566484953359375*^9, 3.566622092546875*^9, 3.56674393840625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ApEtad", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"MMEVG2", "[", 
         RowBox[{
          RowBox[{"Rsee", "[", 
           RowBox[{"FWHMCT", ",", "850", ",", "1"}], "]"}], ",", "Relg", ",", 
          "0", ",", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{
             RowBox[{"Rrmsfix", "^", "2"}], "+", 
             RowBox[{"10", "^", "2"}]}], "]"}], "/", "PlateScDESP"}]}], "]"}],
         "]"}], ",", 
       RowBox[{"BetaMEVG0", "[", 
        RowBox[{
         RowBox[{"Rsee", "[", 
          RowBox[{"FWHMCT", ",", "850", ",", "1"}], "]"}], ",", "Relg", ",", 
         "0", ",", 
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{
            RowBox[{"Rrmsfix", "^", "2"}], "+", 
            RowBox[{"10", "^", "2"}]}], "]"}], "/", "PlateScDESP"}]}], "]"}], 
       ",", 
       RowBox[{"1.8", "/", "2"}], ",", "del"}], "]"}], ",", 
     RowBox[{"ApEtad", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"MMEVG2", "[", 
         RowBox[{
          RowBox[{"Rsee", "[", 
           RowBox[{"FWHMCT", ",", "850", ",", "1"}], "]"}], ",", "Relg", ",", 
          "0", ",", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{
             RowBox[{"Rrmsfix", "^", "2"}], "+", 
             RowBox[{"15", "^", "2"}]}], "]"}], "/", "PlateScDESP"}]}], "]"}],
         "]"}], ",", 
       RowBox[{"BetaMEVG0", "[", 
        RowBox[{
         RowBox[{"Rsee", "[", 
          RowBox[{"FWHMCT", ",", "850", ",", "1"}], "]"}], ",", "Relg", ",", 
         "0", ",", 
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{
            RowBox[{"Rrmsfix", "^", "2"}], "+", 
            RowBox[{"15", "^", "2"}]}], "]"}], "/", "PlateScDESP"}]}], "]"}], 
       ",", 
       RowBox[{"1.8", "/", "2"}], ",", "del"}], "]"}], ",", 
     RowBox[{"ApEtad", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"MMEVG2", "[", 
         RowBox[{
          RowBox[{"Rsee", "[", 
           RowBox[{"FWHMCT", ",", "850", ",", "1"}], "]"}], ",", "Relg", ",", 
          "0", ",", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{
             RowBox[{"Rrmsfix", "^", "2"}], "+", 
             RowBox[{"20", "^", "2"}]}], "]"}], "/", "PlateScDESP"}]}], "]"}],
         "]"}], ",", 
       RowBox[{"BetaMEVG0", "[", 
        RowBox[{
         RowBox[{"Rsee", "[", 
          RowBox[{"FWHMCT", ",", "850", ",", "1"}], "]"}], ",", "Relg", ",", 
         "0", ",", 
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{
            RowBox[{"Rrmsfix", "^", "2"}], "+", 
            RowBox[{"20", "^", "2"}]}], "]"}], "/", "PlateScDESP"}]}], "]"}], 
       ",", 
       RowBox[{"1.8", "/", "2"}], ",", "del"}], "]"}], ",", 
     RowBox[{"ApEtad", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"MMEVG2", "[", 
         RowBox[{
          RowBox[{"Rsee", "[", 
           RowBox[{"FWHMCT", ",", "850", ",", "1"}], "]"}], ",", "Relg", ",", 
          "0", ",", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{
             RowBox[{"Rrmsfix", "^", "2"}], "+", 
             RowBox[{"25", "^", "2"}]}], "]"}], "/", "PlateScDESP"}]}], "]"}],
         "]"}], ",", 
       RowBox[{"BetaMEVG0", "[", 
        RowBox[{
         RowBox[{"Rsee", "[", 
          RowBox[{"FWHMCT", ",", "850", ",", "1"}], "]"}], ",", "Relg", ",", 
         "0", ",", 
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{
            RowBox[{"Rrmsfix", "^", "2"}], "+", 
            RowBox[{"25", "^", "2"}]}], "]"}], "/", "PlateScDESP"}]}], "]"}], 
       ",", 
       RowBox[{"1.8", "/", "2"}], ",", "del"}], "]"}], ",", 
     RowBox[{"ApEtad", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"MMEVG2", "[", 
         RowBox[{
          RowBox[{"Rsee", "[", 
           RowBox[{"FWHMCT", ",", "850", ",", "1"}], "]"}], ",", "Relg", ",", 
          "0", ",", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{
             RowBox[{"Rrmsfix", "^", "2"}], "+", 
             RowBox[{"30", "^", "2"}]}], "]"}], "/", "PlateScDESP"}]}], "]"}],
         "]"}], ",", 
       RowBox[{"BetaMEVG0", "[", 
        RowBox[{
         RowBox[{"Rsee", "[", 
          RowBox[{"FWHMCT", ",", "850", ",", "1"}], "]"}], ",", "Relg", ",", 
         "0", ",", 
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{
            RowBox[{"Rrmsfix", "^", "2"}], "+", 
            RowBox[{"30", "^", "2"}]}], "]"}], "/", "PlateScDESP"}]}], "]"}], 
       ",", 
       RowBox[{"1.8", "/", "2"}], ",", "del"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"del", ",", "0", ",", "0.5"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"decen", ",", "\[Eta]"}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "aperture", " ", "efficiency", " ", "vs", " ", "decentering", " ", "and", 
    " ", "rms"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.561132611046875*^9, 3.561132711890625*^9}, {
   3.561132754125*^9, 3.561132773875*^9}, {3.56113283696875*^9, 
   3.561132838578125*^9}, {3.56113291584375*^9, 3.561132917453125*^9}, {
   3.561133022546875*^9, 3.561133105453125*^9}, {3.56235151378125*^9, 
   3.562351516625*^9}, {3.565003816046875*^9, 3.5650038681875*^9}, {
   3.565003922578125*^9, 3.565003954984375*^9}, {3.56507529675*^9, 
   3.565075296828125*^9}, {3.56507538540625*^9, 3.565075385421875*^9}, {
   3.565075744046875*^9, 3.565075744109375*^9}, {3.565075829375*^9, 
   3.5650758294375*^9}, {3.5650845159375*^9, 3.5650845229375*^9}, {
   3.565084783359375*^9, 3.56508478340625*^9}, 3.56630969740625*^9, {
   3.56631022659375*^9, 3.56631024884375*^9}, {3.56631028103125*^9, 
   3.5663102820625*^9}, {3.567083841265625*^9, 3.56708389153125*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData["
1:eJwV1nk41GsUB3BRqClbSmRJhrpZK1FqnFCJkkSiNJEtlD1ZKnEJRSkM4Wa/
GCYhpCwjkymyZkmWycz8ut3Qckul0D3zx/uc5/Pn9z3nvM+retrviLuwkJDQ
XTyCaun+rpf5715jDZV5aeYdAhabKfhz5MmgeHSIJPDWnIzsanl92HXaY7YZ
zVckR13QMAbaPvprgQ90DlX9Jb8HTIQLKgQmJyoV/VaxgFNph0MFnrN0TXfR
OARyQtX6Ar+P6We50Gwg17Sd34Q+5va98ba8Hew4SYsXmGWmUNeabQ/kw3Lr
BNZTo9z/quIINWutyhrR2cLOpeoFJ2AP03CTwOLc6Hx7DSoYGg9lN6Afvenr
bLVzhm9pmiIC+x92s3SiucACW//kY/SYbpxZkrwbvGlwn6pHp+asYaqfcIdX
V5JUBbaUpO9qyvYAa1Vvy4fo2g8vtn1U8QKrnyYXatFnqdSqOBdvoOhTImrQ
67s+6qwr8IFwq+nAB+gbDJmNNhq+sEL1LKUKvVepsPBfTz+QHTOSqkRfbsuU
arHzh86IpsEKtL6BVpIjLQCU3fnGDHTuKuur1+SD4ZdIWUQxOqIznWX/KBh+
fl43VYS2j30jrHbiPEDHgcOF6OUzAZGPs0MgaQ/zSy46tD81dEolDAwukIvv
oG0Tx2ofMsNAlG9Sk47W2aMxE+MSDkvNZevSBP2srgtQKoiArpmhtFtom5TX
3oc0LkOB2khzPFrrgFqpAvsyLPLL9bkquG+Rs/+89YyEN40KpBj0qfqFyma7
KxB0Tkc9Er3qj2QdB1oUhFv0PQ1GR4lXb0iQjwEqc0X9SfQm81vxVf4xMFzO
dTqO7ov1+3eEHQPeq/f+Zy+YHxGtMp2QWNA+V/XZGt02X6jT33cV5qN1zUwE
eb/QtqkkJkDC/lo9VXTN5vO0/bwEuJvmNq2Ipvrbfg8wugaO6blZa9AV05L1
rHfX4Cx577Ak+si7+F3eexPh9qqwm/MZBGSMhZvVLNyA5PP0fYNoE0XHwvGj
N0FjJEWxF/3+uOESccZNOLp7Ob8DrTwV5srQTobLinTzFrSfl4G60GgymBZk
upShZdwqSoq23wb7w7ZvLqIdHPMqPn1Ohe2iFktXoT+O2C3LV0iDjp72OAn0
Vaq4u61ZGqydqZkVQ1e7+inUpqZB8qlndT/TCZDwpcRGGNJA23o8m4N+Gj18
XPRSOtywfbmsGL2lXFpUUTwTmN1LQ7TQz3WeOnfqoWktLmS0c2Xo48uOmWDs
z9utiE6q5fhP0DPBKdh9mIR+x2SM/G2VBRYXXIPe0wi4O2BRuTklG1wVjW2L
0KTfUU7myjkQ+2d9ijQ6w+sYVWtfDhSvcVMSR5P7tZylfXOgrPVb5kIaAcal
Q64jjTlgH9ofMImuL6XV1OnkQsvGwBss9LTtVMOBrlxo20j5Mxh9tCS9I2hF
PjALzE90pOJ+n4w+6KGaD9ElIqeZaK7MuU6Hbflg3VDiVIP2u2TaTTmZD1lb
7mnnoBOOTPeJMfJB2LzYOBDdOGf6OutgAXxJc1RcjVa3+fCu9XohbJyca7NL
IUAh0tzIM68QIlPDdpqjpRi515fVFUJUc2PeDvRPcVsdG24hbO3INlNG9zDr
gsa3F4G0TN3o29sEhOtFLfwgioBx0NPtPLpLUlZWZ3cxuKdJtcfdIuBC1w7I
+FoKdKHoz1E3sX86NcRzcTpErR6cC0AXJukl/lKkw5xT+y8XdO/BDcPUvXRY
fi+l3wSt2SEbpE6jg/cT+mchNIf98e8qwzI4zp0ZvniDAPOWIonO8HLIDz/h
6pNEgNwD6fFFiyogItHZSe06vldcsxfdu6pgUdmqgbhYAp54/7XWceoBULuL
B8mRBMxoUCQZ5+rAUcHIzyOUAOHZMqm16o+gveWa805/Agx+O9fa3msAfl7u
dKcnAS9i9LvaNjWDyIvmiXYqASrJk7OlH5gQEZKrq21HwOR3zviA3hNIrGVH
X7TAfO8ft0vcaAWZIKVHJArmVyr+yOezYMerVz9+6BKQ6FXjkUtug/NaCYMi
agR8213GPxPJhsZwM0VVWQKCt7AerG59Bl0kTbXzSzD/Pdb1XtV2kG5T0Kv7
yodf3v1Zf4R3gMwZSvk5Hh80TcQWPB6/gJdbSiqv9/HBPF/Vs1KuCyhnD8/5
NPPhgtKp9RNO3fDA7L5qZzkftKaOkoasemCq86n9wB0+rJT8JM762QPNcdt8
Q2L4sLg5q0ItuxcaN7zOY/vxwUf/8fDSA33wnF6vnOzAhzKL07lN3/qg6ZaD
4/fdfJiZVJB6S3sJo5IOTcab+FBjay6SuqcfDlwV6h2Q4kPk/ticB2/7YaOE
vrrHDx6ojlm+KogdANf7/q5sDg+MDGNS5bcMwlY1qq8tiwdOyt2zi14Ogs4a
YliUzoOZ9iSuf9QQMBoLTdmJPMhYTA0+Qn4FX3qOLH7mz4OV4zX5wqxXcC9O
o77KjgdLLkXZ7QgYhtHgzIn4bTwQKqVWcGVew6007aYXcjwIzKxIknnyGla2
S5AmvnGhUTNeXNp3BKKUG/4ZHeCCtGWgVrTEKCzr/W8+qJYLo9o9L8MaRmHl
TVG/xhQu3L8LZD51DDieohqPArlwssJAWmkBbfcwpsuGC1di86JG6eOwell5
aLg2FxjvlLIkDnJgWqLtxGISF2ykJbazf3KgeOsHLyliAq4tEV47ijZoXDFE
QrNmZ+Y/oZNJmnvE0AbcsVaFXxzI+UZVXuBPgEI1w9oX7Sda3jeJ5tpZea6a
48B+iREjNjo4I5HmOs+Bi+2JSy+jGYlXwkLRxz65hYSh314JdkpCbx4x4gWj
Hbyc1teheb85DT5oipHWvWULHAiNlfR3RIuOdjytRHdHiwzqo6GnuaQNbTVb
Z6qHDmVVXx9B8/W9KzTR78uzbJb85oDrL3b8enTXJZ8xB3Tn0zM7pdBigaeY
59AUd1IJCb3bw7YgGj34vExWDF11aKdXOTqES0zP8yZg0lT3YAs6nhZ5fBZN
NlTTHUS3Ssqxv6KpmnIyk2jdQ+VbP6HTVUgzv9HP8Ys1if4fuVgBfg==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Large], 
    LineBox[CompressedData["
1:eJwV1Hk01N8bB/BoE31JkZ8RkqVNUokiHiUpoWRphEEpkSwlWb4pohWpNGQJ
Y8g2KctoN5iobEOyzjQZn/rKltKQiN8zf9xzz+vcc+45z/u591E76n/ouPic
OXMe4BLtlsf7W1jfzE2YVzTlub8JmGdGCuArakC7xBYZkbdkJKeVKurBn3Hn
vz1oYoVG5HktE9hgm8kXeX9jR0m64m6IV5jDFFkjVjlnVnUfmFuGXxJ52vJY
koeWDVz7JgsiD0S3sT2othAvrPnRjT7sOfHqjqI95PjdThaZbUaqqElzBBWH
sC0i66obP/6l6gTk/IjqLnSauHu+ZrYzVJ16YC6yhCCK5qhFgea0rped6Oef
Wxtr7N1BzFh3jcgBBz0tXage0GtFu9qB5m28ahan6AkarztXtaMTM/7H0nQ+
Dm0r0ykf0ZYyBTtep52ATuG/8W1o5kjD1u+q3vB7Mv59K9qXQim56uEDrHVV
7S3oVU3fdVZmnwLdFukODjqesXSNrZYffI6aLm1CmyvT6d+8/EE9IS2hER1R
m7Kkyj4ASApkjwa0nr52nBM1EGhUNf47dKb8gSs3FIPAKmJmPxsd3pjEdnwe
BD/Cwt5Vox1jPourO5+D8ClZoyr0YmHgxRdpwbAy/u6fV+iQtsSQIdVQoGv2
DjDRdrE85lNWKEz6bl9UjtbZrSWM9giDzeYMpVJRP0srApWzw+Fe8X8ritG2
d7t9bLQiYCzrYUIuWnu/ej6pLgKqcrgH6KK85/r+99XrIhhabphLQ7s9m3lS
aX8Jxi+o7UlHy69N0CFTI0GO42B8Fx0pUbr6umI0sExHR/9Fr7O4fa0kIBrc
t3Meh6JbY/y/9dRFQ+9B5tFg0fuZq12oExwDOoOJaf7o2r90nbbWK8AwSDvp
Iap3jLpVNfY6iD1t99iFLt90jrq37zp0h5B2maApAXYTgYY3ICHFU84QXTws
84zdfwNMly2+tQl9qP/aDh/zWDjmlsdVRSfzwszKZ+JBlk3qmpwgYOcKJ/on
h1vwube26xd64IjBfAnGLdhWfZn4jlYZCj3G2JAARr68zC9of299zTncBCDn
Dgdy0Es9i/Nytt0Bl+Fh32w02SmrePRHIhj6Cn+boL/32EvSSPdgpKWesQ19
hSJx3M7sHuwhghw3o0uP+ZOYiffAazVc1kRL+xnHhBtQIai9zFIK/Saq68iC
C0kwFLTudts4AZuLZBeskEiB25J+067odzpv3Bt1UyCpKXe9I9r9SciLCKcU
yCaV2tig45j8gN6CFDD23hNggu5nMXpyrVOh9ClZTQX94OO+J5vupoHuoi1G
PUICpGYjXSxUMoBQ+21thU72PkzR3pMBZuwSLTO0Rpu2u6xfBtTPPh/bjjbJ
7zjW8yoD7nmW+axGP8unllfoZMJMx/4GMfSw3dDL/U2ZEKMqTyn7RYBDXlL9
2X9oIDOWX7sEneYaZXVCjYb/bOvaBWjB0tON5K000I+VuTQ1hnlf2NVs7EqD
OsfHkl/R1w8Nty5k0IDHot99jn41vas71SobOB89gjzQmrYj/TU36eCaFxyY
+5MA0kULQ68sOiisdT18H72EkXlTsoIOhPzljbHoPxJ2OrYCOlw7HccMRHNY
FWc/bcsBX0a66g50mG7kzO8vOeDs+cy16QcBTTJycjqmDyH53N4b/aMEnG/a
Dsm/8mH1aeu8sRHsn075l3cSBXDAJ2o7gabH6cZOrSgAhyTW6zZ0i9XqLop5
ATi+JOeUo9fXy53VpBZAS9ukIBjNr/ueW2JQCI2hi1dODBNgUZUj3RhWBFFv
+VkjQwQolMl+EhMrhh7H2rpnAzivBGYNzTtKYO9l03+tvxBQ7ZOu5DRUBl7h
R4JX8gkQahnLME5XwN+aaePUTgLEJwuXKGk+h4Gbzs/LOQToz7oz7R69BOEy
G3LCWwIaovWaatdVgvXfB8zuSgJUEwYn80dYMJZMYiSXEzA4wf/0UbcaaHm8
xt2FWN/Ai/fS8TWwKUfyoWkG1q/88DtBsMHyKfVt5h0CYr3LT2Rq1MJyRXVT
lSsEjJsWEicv1sHo6ENZ1nkCgjazy5bXvIUoC15+kjfW/4h9s0XtPZQo3RYG
OBEw5dOWujasHsJ9Fnax92JeOxfOnHjRAPAh692FbZgPTc3riUITuIWY/ZHW
wn4ou63qdWmG6CCPemU5nGdDDlId1hy4UxxP7hQjYJnMqAT7Dwc0a8WX7x7u
g3mVqcXqaS1wpyZFxbmrD07pvehatL8VZi1yc+fW9EHhvqOZr8dbYd6EUunB
oj4QDpKWfKV+gC63Mdfz1D4ot7OYm7i7DWjtal6SEX1wcW9MRtnXNgi2GzG7
daIP1HiWndkxH2Fhz/Q/32z6wNAgOlFxcztUvDd5E6vXBy4qzZNiH9ohgOl3
20YJ738fJwiI7ICdh5zPmswKIHkeJeiQRicsbDc66kkIYNmncpo4uxNi4/Sr
z78TwPwLkfbbA7sgqeqnYkqhAObkU4oFS7vhemNWnfItAZxJKY5bWt0NnY8X
OSX5C+DV+msSsn490N3xsGH6gABkLc9oR0lzYblUNm9kkwC4GzgfQl9ywUJJ
Ru7FEgE8fgAaBIUHa8hSVet+9IJrsb6s8gwPOrewxMtaeuFSTFYkt+AT/Lxz
pH7mUS8w+pVTpa34oHfYjSwf3wu2stLb6v7wIZ1zqqTLuxduzBdX4qLFTrbY
f0SzJ4V/R9Hag3oTHLS+gFdDmuIDt0xo9BZNKmUc8EO3OlDeMNECe2sv+Wk+
nGyu77iLDkqOpR77y4f7RQpT1mhG7KXQEHRfpWH6PvTXS0Euceh1lc5gjiZ7
u6yqQOdFJl3egTY21H4kOcOHzOXjUuvRC7j1b56gBZEHVkiggVOZV4u+5mD7
ei46hF16swdtJm/rPnuyFwaKUm3nz/JhimxJH0c3XTjFI6OpP9S1v6AXnnFj
nUYv0JJv+ow2PWGXHSU63zMvgIsusTHyLkIrWXFLP6AHd220qkIrbHrj0IzW
MFDf2I42EC+aeI+mrFdYOoiOrEy4X4tOUpUSzqJ/nTxrVI3+Py1pMu8=
     "]]}, 
   {Hue[0.14213595499957954`, 0.6, 0.6], Thickness[Large], 
    LineBox[CompressedData["
1:eJwV1Hk0FGoUAHBp81SWaJmRZK0skzZKvNtLkqXFUlFMZIuyRbI8iUcltDK8
Iesk1JgQnijKRLI2yDrGLEnZWuyFd+ePe+75/fOd891N8Zy3pYuoiIhIKoYw
m7oMfqj6YvQnWy1557yyAJYYEn04BBVo6Z/UEnpnWlJKEWEXrPMVlxdasEEl
/Iran1DV0S4itFljR+FDwkEYk7XtmkOrxMo/WlAwgdYt8dlC/zZ1SnRUOwoP
ZW6cF/prZBvTkWIBCe3bFYQ+5Tz18j7BGqS949//RjMNiaXVKSfhfH++h9Da
ygbPxhVsQVw9fOEXOkXUIVc16wx4m6+IFlqMF5F5Uo0MGw4fWS70i35WY7W1
A1DljYNn0T7HnU3tKI5wu3GaO4Nmb7thGEdwhhuV/9yZRsenra9SPeMCSxfb
t0+hTSXz9F+luMKI8qik0CWjDbvHFNzBbdEepwn0RTK58IajB3Aqv4WMo5Wa
xkibsi5A0FnH6J/o2/TVWyzUvMDxkEfEd7SRPI32xc0bvt8R9fqGvlpDlXpt
7QNalZZHx9C7dDTjbCm+wGgljgyj09ccu36L4A8Kv0yyPqNDGhOZJ1/4Q1di
xq4B9MmoflHlM5chW7XghQC9csI3rDwlAAhy0zQuOrAtPnBYIQhoqao/utFW
seyS/6qCoH1cf2sXmnRQbSLSMRgyTFee6BD2s6jUVz4rBCzmWLda0RYPuj2O
ql0Fs3IR73q0pplyLrH2KjiYdprVCeu9+OLnAbcwqPnqJl+LPls2X1BpfQ1s
3Bmpb9Brtt4l2VDCgUXjEMrQ4WJFm6MJkXAusPZHFlrd+N7NQp9IuP77PDsd
zYry/tJTGwn3I969eCicn8WaT0gBUcCnvT6SiK6Zo5HaWNehuyylLVr435+U
3Qqx0RBImHW5iC7efplymB8Nd5pD/z6PJvtYTfnq3YLQD5VRzmjGiGQZc/AW
1DRe9bFDWw7e1PcwioVmgy/ZZugkdrBh8fxt+I/vn7gZ/dcGW1rfiTtgMcLp
UhLO62ndpWL0O7A+9Q/JjeiNw0FOdK274CHxr4Us2ttdR1Wk9y749eXoiqBX
OzNyHu25DzsUGbR2JQHY2GYwvn2PhweKFIsA9FiPtXgmMQGYOvq2PujrZDEX
K8MEGHM4ccIDXeTkTSyJT4BqSa46GS3hZRAVoksBqWSymRH6bUTX6WWhicAq
mHaURu94Kr1sgxgVjLjsT+mKAqgjvXVo1KaC4PN4yL9oh4LA8qu2VJCZCVt2
Hx1XwvHh5lHB3f7HdAR6sIrek30kGQYVTKyc0antJgXbH6RAhXENWwW9YiHc
znhjGtBKwPThJqyX+ymy5qE00BSEJcejVdo0HaS90uClZA43Bv1nbodTz8s0
8LzxzDwYXZZLKS4lpUO8WNbDk+gRq+EKs6Z0+Dm5VmMV+kROYr3fqkwIKpqb
91XA/baPMHdVzISVPvYjbmjeas9Gm92Z0BOQ3WKP9g490Gxgnwmdd8Yvm6Cj
LUdYy+mZkLY1Yt8m9MvfB7qTzbOge+piYf1GAahajA5Wx9Cg3771GBFNDDPW
c8uggdO8C28VWoqeHiNeSgM/qVG3RehZMSuSBY8Go3V9ZoPyAmipKvXr2/MI
6k8fvFKMDtYOn5/+9AgSfEh2R9BNkrKypP2PIbJuguy3QQBXmvZC0ngu1DQZ
micRsX+k4k91YnlAfrcxNxpNi9OO/bUhDwwGMmaD0R/MN3eRjfLA6EN6iD1a
o17WT5WSBw26/0woojm1Y9mFuk9AfuWXdzkEARi/fiTRGPwUnLMKRunrBbDu
uXTfokUMOBWwWY+yFu8Vz7ChWb8QlGrDcn2lBfDG46Gc7fBzGH1t6k5ZIYAJ
NQNJumcpXIoh9LotFYDozBMpOdUX8JYZHzQ0xwedBYcSq/wKaLTf3L5jkg8N
kbuaatQrge1Jrfs+wgeFu0MzuaNVcKaUF7pXwIehKU5fu/YbODmS/8anmw+0
r+XvJW5XQ4jlR1nJZj5IyD8eEwiYMFK+O55YzYdY92LXdJUakJU0vnGglA+T
+58IzofVwvWSmqmcXD7472A+X1v9DkortbcYpvCBk8+M+aD4HsqkXgT8iuXD
L4+25K3B9WB14BlDJ5QPGn8tn3ctbwDBFPUBy5MPxpmKbgXrmmCcmibhaseH
K/Jnlbh2zSCiIqD4mvFBc/jEio4jLXDasq2epMcHGclvYszZFri9W+pCpRof
llQmM5RTPoDm5+kzP2X4cGFXedcfZizYpsp2ZM/z4InJufRXkyywbpCcufSF
BxNDRKkBSivsCOzK62jjQbGV8eL4g23QQW8ybnnJg7DDUWnPB9rge0aeIP8x
DxTZpp1ZUe3gt/Ngr+s9HujpRsYTdnyE65Pe6g8CeWC3sXlmUetHsP9YINfs
gO+/j+P5hHdArFZ9t8shHiQtIftbqnRC7t1F9UpaPJDpK84UZXZCvhfpfosM
D5aGhlvv9e2CofYl7yumuCCSS2bwVndDH2Nx8VQvFy5RGXGr33TDqobibacr
ufBS46aYtFcPXHEKy36awQVp00uaERK9UPF7Rj0gigu9Wi2tQRW9oJHKWnPU
lQvPUkFFQGbD+3NbTxUe5oI9Q0dafp4NdRI7N2/X4MK1qIzw3rw+KHtbKpsj
zgX6oHyyhDkHqC7HC1uG+sFCWmJP7SwHtOuab3Lq+uHWUlG5XrRB/apLPWjm
zMTcNzTrk8mZDrQOj11N/MUBinOFVjOaWEQ/5oXOv3mL9QrNsz7ituY3B65d
rJdLRfsnxVKc5jigR+c8tUPTY68FBaIlqvsTbNAD1/zt4tDU75yr1mgbdzul
UnRnUudxc7SBnma++DwHdksVje9DL+utf1uApmat1JdDQ0tlTg06wWhMZR06
kFkU04N2EGlZJYP++jTZYukCBzyrYjji6KbQC2wb9N8ewxGz7/ph+aWzVZ5o
udbKC5Po/a5WWRHoROt71j/QhUf3uT9Fq2eS1L6ihw5sM3+NNvSalRhAq+gq
b/uI1rdiTnHRZI11q4fQBIvYfjY6UWHFxAK6x82yrgv9Px0v+7k=
     "]]}, 
   {Hue[0.37820393249936934`, 0.6, 0.6], Thickness[Large], 
    LineBox[CompressedData["
1:eJwV1Hc81I8bAHCkkhWiMo6sa+kqLQ09ZXyNlKwQXURW4YoyKiJaHCodcUUc
GUkIRaJc/CqEJGXc3efMiJZU6H7P/fG8ntf7z2dqHgm0PSomIiJyB0OYLY8O
t9WNmO6Mcf9o1ricD+LGKjSOsg4MOjGNhN6QkcosU94Ix9IG9IXuV9OJCiHv
hFXk8qVC72n+UHpb2QR2zUj+bEDrxJNyBBoW0Kc2xBZ6xtIjxZ28DwwvW8QJ
/Tmmg+3OsIHcnfpmQjt6TtVcV7aH47vu/n6JZhurVNYzD8APOiND6HXahg9/
ajhD3nKFHUIzxdzydbNdYL6sYgsbLUFEZx0gUyFtN9NB6Cpue3O9vRtMviho
r0fT9ntaujLcofY6mArdu/aSMV3ZEzyXzUi+QCdnLK3TdTkKrzja1Odoy4UF
O54xvSDva1tuHbpivGnThIYvBEk+X1qLPk6lll5y9wNbJTGjZ2itlgnKsuxj
cOXUK7cadEKRwgobcgCEbRuNqEabklisEe9AuHzXNKIKHdGQJvfcngaZR8hB
T9AbN+vRnRknYP3vcMNKdKaS9cWrysHgmUqzL0WfaU5hH6gKBtGpWcFD9IFY
rpi2yyk4Uy1/txgtPXkispp5GgbONtXfR4d2JIeOaYRBkmJiXC7aLr634nFd
GFR2WPNZaIoJeTLGPRyaFqSsyxbOs6zyBCn7DNh0Py7MQNvc+OS3jxwBagct
dVLRenu081UaI6BHsHMFQ9jvOceHBr0jgdCr0kxGH37yr6TW/jx8J5tMJqKV
ViZRnBhR0Nmfq34JHSVRtvyKcgwYixaEB6FXmV27XEqLgUL6k9s0dHts4Eh3
Ywy4vwx75C/cnzl6hZTTsdBjJl3jjW6YZVE62i/CU8XwbS7Cen8wNmnEXwHp
obODgC5ff4phzr8CS61vmexAU2l2Uye2XQXFYi+GAbr4y8In7OGrcPy4otJ6
tO3w5R1+pvEwFvI0QhOd2htuXP4vAVyHjOeIoHerObP6HBJB9OxJ5jQZ9/Xg
lrkSRYmw3tt25RRafSzMo2hNEri5kNXH0YG+m3VFepIg/5RGcDdawbM4L8fg
OgT7PuKXoZ2c7xZ//ZYMNJuTvi7oiW57ySyVm1AiR+1zQF+kShy1M74JdwKS
zPejyzwCVSqSb8KE1qsZE7RsgGHsmS0MOGQQ178G/TL648F551LA55ZTyawu
H/Tvy89Tk0gDbTXrXTfRrygv3ZrXpUFfLImagHYrCa2OcE6DvPgNJy6h6RUc
Gq8gDT4kbw4JQw/XFXXn7k2HjVdviR1C33lvUbL+BhNMpboXa6GlBFGuZuoZ
kGWWuImlg/3ydaTq/ZcBnKOvdJlonQ49N/mADGAPVkglo3fmf/DorskAG4P7
jy+gn+QzyispmdC4QTTlCPqL3djTPS2ZkKiuE6iOdshLeRMkkwV6v8rsErTx
vg9FW3lpZsFIf/jfGDSh4N/stCkLpBN+Mc6gA88ZvTU8lAV5htIlPugrtl/a
5xdlQaljqa8RumbG6FO6VTYENf0Y+6HFB12b8eH6OBYMTWdut0arRJpt877L
At3f3SXGaLmizDjJShbs75pWNUD/lbCj2BAssLr0+c0ydGtdZVCfQQ64h8am
fdPkQ/i6qH+/B3Igh1X3PQndslBRkbLrHgjyGxMblvEhpGUrpP7MhynBmvMy
Gjg/SvnAK4kC8OQfHBGo84FFXxc/rVYAUkwR8+/oNqvlH6mmBVDTVjHQiV79
RjFIl1EA/etbszLQnMaJ3NIthdAq1aC9Fm32PEe2Ofw+jChs3/0fiQ9LHsn3
iYoWwxjt0Li9Kv4rwrjp7Y5S0D9Ke5iwmA8v/G6rOo89gj8iySoa8nyYJBsu
LPKvhMhRZ+MjUnwQ+1Mop6pbBQUTo3WB4nzYLHCrsHvwFIzeOV00nSWgKWZj
S8OqWnAJuPCdOUmARtLon/zxOnBzOBmROkbA6BSn7/26F1C0jEuK5RPA+lz9
WjahHmiMWy2/ugiQJd2b6O9nQ8tN+mtuMwHxvuVemToN0AHbMwdeEPBrV2G/
T2QjDKR+MbasICBYn/1ocf3/QGHrm9OcfAI4D9hxbZqvwee6f11FOgHTfh3p
K8PfQIWu+ogKnYDVu+f/86puAnZzgPvHCALMsjS9S5a0gMXn/eUVAQSEkA5r
8VzfAjMkTEX8MAF6Yw5SH/a2giCvkbPAmoBFC79KsP+2gs73NdEyhgSI16YX
azPbwPJK3oH81QQc21j9ccGedpiuUrdYsZSAQosjmc9+tUOz2U7/g+IETI6q
yA0y3oHD/tt79n7jQbmd2Zxkkw7Qdp1rLN7Dg0jz2IxHgx1AcVqy4lojDzR7
LbuyY99DXFQna7qUB9u2xCQr63eCDCnxjgyTB67qb/+IvuuE7rTAcdWLPJh8
TSdoUR+gmT/LqPLnQao4NdhWpwu0zst5+B3gwaK+8iwxdhe0FrBKZIAHc89F
2W898RFe1kfULNflgUg+tZhQ+ATZUKodKs2Dk2nFdIUXnyCESk5b9Y0LNasv
S8gHdMPKH1u0Wt9zQd7ypF60bA8MlSyZba3mQs+a1ndhT3vAx1vbkJTBhYd3
QKef2gtq3TGWXRe4cKh4szzpXy/kaui5Fflw4Xzs3aiegj642Ha88YklF4qG
SemyVhy4Rtor7Ujhgo28rEHjXw7sWyl6RnUhF67OFVPtQU9FD1cuQbP/TM5+
RV/Savm5CL2Z6K1XmeZA8IbkAGm0SlmRdQD6OlPqyKwsFwj7vd5KMxxYSr9n
zkEHp8YzPGY5IPrthmI2uij+fFgoulbSxCYDPXg+2JWOTvP7Tk9HO/m6alWi
U2cs5iejDbfpPZD8x4Fx3/4/Meh5PW9elqA3HWvo80JDa21eA1pp6KCqBzqU
XRbXjV6e/8XxMPrz/XSbuQIOdApk2hzRLeeO9TqhU6e21puj5588XOePVsip
E5igd3nZZUej2ammO3ajS/dt972Pfm9rWb4VPWq01uo5eqvy62+b0DpbtNd2
ojm65hR9NHX1EoVRdG0o24+CTtGQmhSgB+Th3ir0/wHxs8wO
     "]]}, 
   {Hue[0.6142719099991583, 0.6, 0.6], Thickness[Large], 
    LineBox[CompressedData["
1:eJwV1Hk41GsUB3C0mCJb64jGMjNuGUrZEk4llySRJUpjC5Gdm6Ub2e7N1t7w
mAmhsiZjLxU1abFLSZaZ3xQpxL1RN0n3zB/vc57PX+d5v+d9j6pn8EFvCTEx
sRw8omrlPdbd9NHctI0W+S5UTgiLzRRD+GQqPJCsHhZ5W24Wp4qsC2ViJ7pE
fq9EjY+km8JNOU69yPva+7jXyHugw8AiU2RquvKNX5S9YHMyIEDkeSuvTA+6
Dbi3SRmK/Cmpl+fBsoPfjWhzIehDx77dv0R2AMemeq7IPDPFusccJ5hgtniI
vEXd5M4MxQUi1thIisyRcC+mFRwBzw8HCoLRJGFCvhOdCdDTqifyXUFP+2MH
d8jqa34QhA6xPWblyvIAqf90TEUe2vy3WQb5GHxJP6MSiL6Su66JdsQbBBJu
iQFoK9kS4wccHxhg1Q2eQNd+btObovhBoFJfmD86gMnk/u3hD6OyORV+aLWO
KW2VghNAp/GFx9HnyhV+s6MHgWlDJ8MXba5cWPjRNxhcjOLMfNCxLdlyzQ4h
0EQU2XqjdfUZGS6sUIgt8rfxQuetPvBXKjkChDuK+pjoU+2ZPKe7EUBdvTH/
KNopWSChfuQPWKNC9XJFS8+Gxt3jnIQb3WefuaCjeq9ETVCiIbtXWtUBbZ8+
VFvfFA0qAW65B9Hae+izSR4xMGjGWGUnmmdVXahywSnQaNQl9qPtLr/1t6HH
grG0+DILNGOferHi01gAgrbDXJT3ooAPo75xoEZ64mWGdmtYqHzocAaOOIZl
AXr1xgvazqx4YOumnDdAx5OqNFLISVB0vKSaht5kcfEsNyQJ7p9zVVRH9yQH
fxx4mgSskaEIFdH7WcQo1T6ZDNL6NqT16Jafhdq9PX/Btv6RIlnRfb+w9Cjp
KUBeP9v1VVYINTp/sCzfpcAbN07iFzQzxP5bqFEqaFJWak6jKyZlG3hjqeCo
Fuz8EX1w7Kyxv3k6eHURjAF01lCMWc3COXhzp7axEb1LyaVw2PE8eG9zbqxH
fzpssIRUfh5upz2/U43eMBHtVa51AXJer48qQwf76dPEBi/Ax5S4M2y0wrGK
ohuGl+Cu6d6oSLSzy/WK6X+ugOG8M1kDPTXgsDxf8SpYL9srq4b+i0nytje7
Ct5u0T+U0FVewYq1V66CmgS7VgEtE2SSfMqABVojwrqfMkJ4ktB/eOnpTIjw
TRvtRm8tk1+qRMqGQzsjZsLQz7WfuLdvyQbj+lPcALR7ZdS9WJdsMAzi+fig
M2r5IURJNlYy1wU91lQ+cHM/G0glvS8BnfNqb6XOZQ6Yvrxsthwt9Sve1WJD
LuYSPpS5AvPyO8Rk/J4LIzKeKRfQ1F6Gu3xQLnyznNFMQZsW93kN3M8FToOE
Ywy6oZhVU6edB0PsZ/qu6En7icZ9HXkgtUh8+wa0Y1Fma/iKfDjadcKQLY3/
+2iCtY9qPnCoffWX0EKFwHZnvXz4d9mHzano4NO7O02O5oNt9Yx4NDrl4GSP
ZHk+GDY/03NC35/f/ZZtXQDfbh8dlEHT7D6PPU4rhM//ptOipYSgGGdh5Hu9
EJpUg4qC0HLleWnL6wpB/IiNyjH0HMle205YCFZa0lM26K6muvBhwxvQvjaO
REXHbIlf+G/kBhiF22q2LRdCh+yqVdo7b4EyY53OKnRkx3bImikGY8qmXYkk
nJ92zchzUglsPPR69CS6MGNL+g+lErg4P53gj+621uhnmpfAq+7QHDu0Zuuq
cBqrBGwjCzwpaP7TqZtcg1LQ8nhFaZAUgkXzDZn2mDKoGBkPHFkqhLXV8sPi
4hUQrtvpqroE95XQrK3TmAvmDSZuL8SE8Mj/2nqXiWoITSlM6v9BwCzdRLY8
sA7O56xJzP9KgMT3Urn1tLsw2aJFOzhNgP4v91r7243wrDbatPMjAW1Juh0t
mx5CG92goF9IAOXC+Pfiz03gE5AnV/SWgPFv/OFXWx6Bbbce2a+HgMJP917I
nHsMYU8UVvQ8I0BG+dbU+/c8kP9n8czDBwSk+9X45FFbYNJX5c+WagK+7ix9
fzzuKfCNlczsiwmI2MqrXvP4GXi6tYZI5xDAv81L61Z9AQq5/kt0LhLww7+X
vTGmFRJuaoRPJhKguUtywedeG6gUsnbOnyTAIl/Vt3JtB0z7VFc6HScgUtlN
jXDtBNqF+f1rDxPAmHCU6tvfBdQQe+fMfQSslJ0m8ea6oNig3NZ8BwGLH7Ir
1DndUBekM3pak4ATuvf6l+3rAW6XhEMbmYDSvZ55D772wClLA+4rScxzXFFu
lPUSymjNYee+CqDG3mLRlT29UBMpvWnXOwHEWSbnVo/2guVcQ2xtlwBUh6ze
FCS/gnUFh7aveCAAI4OkK+StryFavcpgT7EAXDd0fhd/+RoOWyRnuV8VwOyL
DGFIfB9MDO8KsYwTQNZiZsRB6hu4Sv7+52/+Alg5XJMvwXsDlunOAz8dBLDk
dLzD9tB+OLw6o/JvEwGIFTMrhApv4drzSmdNDQGEZVdkKDx6Czs0KUSIjADu
a54lyQcNQIteQ7fTOB/krcIYCTKDwHjB3rK7kQ+DWl0voxsHoV5nR6rlWT7c
yQHqe+YQVFxt3TvmxIejFfryygtDEBP9yLCexoczydfjB0uGoeWl4HPs1DCU
jymzZaz5ULXsXwelxmGwk5cxfDrHh1kjit3lxGFIXSKxfhAduLE/Ph3N+z77
cxr9z9x5bjJaXzj0WPEHH7ZZzKyMQitWlR8IQvckZb52RQsd9vuunudDDcvy
CB0dkZXO8vrJB226o2dDAvZPPxMdhd51qvQSFz16JsI1A11dtfCoFO3s56pW
h27uYKvnoE2MGLeXL/DhVvmd9wnopYOtTyrRb+TMfazR0PWwqAU9wfFjmaOj
eFVpA+hU6bQWU/SnMrbdkl98cGfx6DrojtMnhpzRVQ4KH1ajJcPcmgLRRj+V
18qid/rYFySgXVPoFiQ012aHXxna31r71lz8MIzv3mzdjPZM1Or7gqYaqG9+
jRbP2Sg5iWZqrlUYR5ty1AxG0ZkUqdlfaI3Ydb589P/8TbU2
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["decen", TraditionalForm], 
    FormBox["\[Eta]", TraditionalForm]},
  AxesOrigin->{0, 0.5},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{0, 0.5}, {0.47667679851471906`, 0.6750183440535451}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.561133323921875*^9, 3.56172854303125*^9, 
  3.561790071625*^9, 3.5619828194375*^9, 3.5620465909375*^9, 
  3.562069797421875*^9, 3.562354294125*^9, 3.562354915484375*^9, 
  3.562466103174881*^9, 3.562961917640625*^9, 3.563086915*^9, 
  3.56372818671875*^9, 3.5638215245*^9, 3.563839108078125*^9, 
  3.56394605075*^9, 3.56398563109375*^9, 3.564022108625*^9, 
  3.56492559315625*^9, 3.564929897671875*^9, 3.565003893828125*^9, 
  3.565004054875*^9, 3.565085094*^9, 3.565086689796875*^9, 
  3.56535062996875*^9, 3.56630899865625*^9, 3.56630990896875*^9, 
  3.5663104991875*^9, 3.56662228475*^9, 3.566654729546875*^9, 
  3.566744152578125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", "  ", 
  RowBox[{
   RowBox[{"differential", " ", "refraction"}], " ", ",", " ", 
   RowBox[{
    RowBox[{"actually", " ", "for", " ", 
     RowBox[{"LaSilla", ".", " ", "T"}]}], "=", 
    RowBox[{"11.5", " ", "C"}]}], ",", 
   RowBox[{"RH", "=", 
    RowBox[{"44.2", "%"}]}], ",", 
   RowBox[{"P", "=", 
    RowBox[{"772.2", "mbar"}]}]}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.55923058059375*^9, 3.559230585359375*^9}, {
  3.566654698171875*^9, 3.5666547334375*^9}, {3.5670839195625*^9, 
  3.567083922609375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ZD", "[", "AM_", "]"}], ":=", 
  RowBox[{"ArcCos", "[", 
   RowBox[{"1", "/", "AM"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.559226422578125*^9, 3.559226452828125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TC", "=", "11.5"}]], "Input",
 CellChangeTimes->{{3.559226531453125*^9, 3.55922653346875*^9}, 
   3.559229280484375*^9}],

Cell[BoxData["11.5`"], "Output",
 CellChangeTimes->{3.55922653415625*^9, 3.559227795078125*^9, 
  3.559228740890625*^9, 3.5592292823125*^9, 3.559923791609375*^9, 
  3.55996859559375*^9, 3.56015613996875*^9, 3.56068377025*^9, 
  3.560690119953125*^9, 3.560754385296875*^9, 3.560757602765625*^9, 
  3.56075809134375*^9, 3.56076277790625*^9, 3.56076508528125*^9, 
  3.560788334921875*^9, 3.56113459696875*^9, 3.561728607453125*^9, 
  3.56179013221875*^9, 3.561982878859375*^9, 3.562046654390625*^9, 
  3.562069857890625*^9, 3.56235432896875*^9, 3.56235497484375*^9, 
  3.562466161690506*^9, 3.562961976203125*^9, 3.563086976875*^9, 
  3.563728245828125*^9, 3.563821584171875*^9, 3.56383917090625*^9, 
  3.563946109765625*^9, 3.56398569334375*^9, 3.56402216790625*^9, 
  3.564925630296875*^9, 3.56493004596875*^9, 3.565005097640625*^9, 
  3.56535098671875*^9, 3.565533533328125*^9, 3.56630927265625*^9, 
  3.566580660953125*^9, 3.566622548375*^9, 3.5667441526875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"T", "=", 
  RowBox[{"273.16", "+", "TC"}]}]], "Input",
 CellChangeTimes->{{3.559226481125*^9, 3.55922650275*^9}, {3.559226537*^9, 
  3.559226538953125*^9}, {3.559229272953125*^9, 3.55922927790625*^9}}],

Cell[BoxData["284.66`"], "Output",
 CellChangeTimes->{3.559226504859375*^9, 3.559226540140625*^9, 
  3.559227795140625*^9, 3.5592287409375*^9, 3.559229285625*^9, 
  3.5599237916875*^9, 3.559968595609375*^9, 3.560156140015625*^9, 
  3.56068377028125*^9, 3.56069011996875*^9, 3.560754385328125*^9, 
  3.5607576028125*^9, 3.560758091390625*^9, 3.560762777953125*^9, 
  3.560765085328125*^9, 3.560788334984375*^9, 3.561134597*^9, 
  3.56172860746875*^9, 3.56179013225*^9, 3.561982878875*^9, 
  3.56204665440625*^9, 3.562069857921875*^9, 3.562354328984375*^9, 
  3.562354974875*^9, 3.562466161706131*^9, 3.562961976234375*^9, 
  3.56308697690625*^9, 3.563728245828125*^9, 3.5638215841875*^9, 
  3.5638391709375*^9, 3.563946109765625*^9, 3.563985693421875*^9, 
  3.564022167921875*^9, 3.564925630390625*^9, 3.564930046015625*^9, 
  3.5650050976875*^9, 3.565350986765625*^9, 3.565533533375*^9, 
  3.5663092726875*^9, 3.566580661*^9, 3.5666225485*^9, 3.566744152734375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PS", "=", 
  RowBox[{
   RowBox[{"-", "10474.0"}], "+", 
   RowBox[{"116.43", " ", "T"}], "-", 
   RowBox[{"0.43284", " ", 
    RowBox[{"T", "^", "2"}]}], "+", 
   RowBox[{"0.00053840", " ", 
    RowBox[{"T", "^", "3"}]}]}]}]], "Input",
 CellChangeTimes->{{3.559226498015625*^9, 3.559226498265625*^9}, {
  3.55922655409375*^9, 3.559226567046875*^9}}],

Cell[BoxData["14.305078113924537`"], "Output",
 CellChangeTimes->{3.559226568125*^9, 3.559227795203125*^9, 
  3.559228740984375*^9, 3.55922928925*^9, 3.559923791734375*^9, 
  3.559968595640625*^9, 3.560156140078125*^9, 3.5606837703125*^9, 
  3.560690119984375*^9, 3.560754385359375*^9, 3.560757602875*^9, 
  3.5607580914375*^9, 3.560762778015625*^9, 3.5607650855625*^9, 
  3.56078833503125*^9, 3.56113459703125*^9, 3.561728607484375*^9, 
  3.56179013228125*^9, 3.56198287890625*^9, 3.562046654421875*^9, 
  3.562069857953125*^9, 3.562354329*^9, 3.56235497490625*^9, 
  3.562466161706131*^9, 3.562961976265625*^9, 3.563086976921875*^9, 
  3.56372824584375*^9, 3.563821584359375*^9, 3.56383917096875*^9, 
  3.56394610978125*^9, 3.56398569346875*^9, 3.564022167921875*^9, 
  3.56492563053125*^9, 3.5649300460625*^9, 3.56500509775*^9, 
  3.5653509868125*^9, 3.5655335334375*^9, 3.566309272734375*^9, 
  3.56658066103125*^9, 3.566622548625*^9, 3.566744152796875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RH", "=", ".442"}]], "Input",
 CellChangeTimes->{{3.559226620140625*^9, 3.559226622296875*^9}}],

Cell[BoxData["0.442`"], "Output",
 CellChangeTimes->{3.5592266359375*^9, 3.559227795421875*^9, 
  3.55922874103125*^9, 3.559923791796875*^9, 3.55996859565625*^9, 
  3.560156140140625*^9, 3.560683770359375*^9, 3.56069012*^9, 
  3.560754385375*^9, 3.560757602921875*^9, 3.56075809153125*^9, 
  3.5607627780625*^9, 3.560765085609375*^9, 3.560788335078125*^9, 
  3.561134597078125*^9, 3.561728607515625*^9, 3.561790132296875*^9, 
  3.561982878921875*^9, 3.562046654421875*^9, 3.562069857984375*^9, 
  3.562354329015625*^9, 3.562354974921875*^9, 3.562466161721756*^9, 
  3.562961976296875*^9, 3.5630869769375*^9, 3.563728245859375*^9, 
  3.563821584375*^9, 3.563839171*^9, 3.563946109796875*^9, 
  3.56398569353125*^9, 3.5640221679375*^9, 3.564925630609375*^9, 
  3.564930046109375*^9, 3.5650050978125*^9, 3.56535098684375*^9, 
  3.565533533484375*^9, 3.566309272765625*^9, 3.5665806610625*^9, 
  3.566622548734375*^9, 3.56674415284375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"P2", "=", 
  RowBox[{"RH", " ", "PS"}]}]], "Input",
 CellChangeTimes->{{3.55922662665625*^9, 3.5592266276875*^9}, {
  3.559227400484375*^9, 3.559227401734375*^9}, {3.5592277263125*^9, 
  3.559227728375*^9}, {3.55922830703125*^9, 3.5592283143125*^9}}],

Cell[BoxData["6.322844526354645`"], "Output",
 CellChangeTimes->{3.5592266383125*^9, 3.559227403515625*^9, 
  3.559227730140625*^9, 3.55922779546875*^9, 3.559228324515625*^9, 
  3.559228741078125*^9, 3.55922929709375*^9, 3.559229329703125*^9, 
  3.55992379184375*^9, 3.5599685956875*^9, 3.5601561401875*^9, 
  3.560683770390625*^9, 3.560690120015625*^9, 3.560754385390625*^9, 
  3.56075760296875*^9, 3.560758091609375*^9, 3.560762778109375*^9, 
  3.560765085671875*^9, 3.560788335125*^9, 3.561134597109375*^9, 
  3.56172860753125*^9, 3.561790132328125*^9, 3.5619828789375*^9, 
  3.5620466544375*^9, 3.562069858015625*^9, 3.562354329015625*^9, 
  3.562354974953125*^9, 3.562466161737381*^9, 3.562961976328125*^9, 
  3.563086976953125*^9, 3.563728245859375*^9, 3.563821584390625*^9, 
  3.56383917103125*^9, 3.5639461098125*^9, 3.563985693578125*^9, 
  3.564022167953125*^9, 3.564925630734375*^9, 3.56493004615625*^9, 
  3.565005097921875*^9, 3.565350986890625*^9, 3.56553353353125*^9, 
  3.566309272796875*^9, 3.566580661109375*^9, 3.566622548859375*^9, 
  3.566744152890625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"P1", "=", "772.2"}]], "Input",
 CellChangeTimes->{3.559923812671875*^9}],

Cell[BoxData["772.2`"], "Output",
 CellChangeTimes->{
  3.559226652453125*^9, 3.55922779553125*^9, 3.559228741140625*^9, {
   3.559923791890625*^9, 3.559923813875*^9}, 3.559968595703125*^9, 
   3.56015614025*^9, 3.5606837704375*^9, 3.56069012003125*^9, 
   3.560754385421875*^9, 3.560757603015625*^9, 3.56075809171875*^9, 
   3.56076277815625*^9, 3.56076508571875*^9, 3.5607883351875*^9, 
   3.561134597140625*^9, 3.5617286075625*^9, 3.561790132359375*^9, 
   3.56198287896875*^9, 3.562046654453125*^9, 3.562069858046875*^9, 
   3.56235432903125*^9, 3.562354974984375*^9, 3.562466161737381*^9, 
   3.562961976359375*^9, 3.56308697696875*^9, 3.563728245875*^9, 
   3.563821584390625*^9, 3.5638391710625*^9, 3.563946109828125*^9, 
   3.563985693640625*^9, 3.56402216796875*^9, 3.564925630875*^9, 
   3.564930046234375*^9, 3.5650050980625*^9, 3.565350986921875*^9, 
   3.565533533578125*^9, 3.566309272828125*^9, 3.566580661140625*^9, 
   3.566622549*^9, 3.5667441529375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D1", "=", 
  RowBox[{
   RowBox[{"P1", "/", "T"}], " ", 
   RowBox[{"(", 
    RowBox[{"1.0", "+", 
     RowBox[{"P1", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"57.90", "  ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "8"}]}]}], "-", 
        RowBox[{"(", 
         RowBox[{"9.3250", " ", 
          RowBox[{
           RowBox[{"10", "^", 
            RowBox[{"-", "4"}]}], "/", "T"}]}], ")"}], "+", 
        RowBox[{"(", 
         RowBox[{"0.25844", "/", 
          RowBox[{"T", "^", "2"}]}], ")"}]}], ")"}]}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{
  3.559226689484375*^9, {3.559226730890625*^9, 3.559226797*^9}, {
   3.5592278554375*^9, 3.559227859*^9}, {3.559228491765625*^9, 
   3.55922849821875*^9}, 3.559970062234375*^9, {3.559970150640625*^9, 
   3.559970177921875*^9}}],

Cell[BoxData["2.713741663331463`"], "Output",
 CellChangeTimes->{3.559226767515625*^9, 3.55922679865625*^9, 
  3.559227750390625*^9, 3.559227795640625*^9, 3.5592278601875*^9, 
  3.55922837190625*^9, 3.5592285105*^9, 3.559228638296875*^9, 
  3.55922874125*^9, 3.55922923709375*^9, 3.55922931553125*^9, 
  3.5599237919375*^9, 3.559923824015625*^9, 3.55996859575*^9, 
  3.560156140296875*^9, 3.56068377046875*^9, 3.560690120046875*^9, 
  3.560754385453125*^9, 3.5607576030625*^9, 3.560758091828125*^9, 
  3.560762778203125*^9, 3.56076508578125*^9, 3.560788335234375*^9, 
  3.5611345971875*^9, 3.561728607578125*^9, 3.561790132390625*^9, 
  3.561982878984375*^9, 3.562046654453125*^9, 3.562069858078125*^9, 
  3.562354329046875*^9, 3.562354975015625*^9, 3.562466161753006*^9, 
  3.562961976390625*^9, 3.563086977*^9, 3.563728245890625*^9, 
  3.56382158440625*^9, 3.56383917109375*^9, 3.563946109828125*^9, 
  3.563985693703125*^9, 3.564022167984375*^9, 3.564925630921875*^9, 
  3.564930046328125*^9, 3.565005098234375*^9, 3.56535098696875*^9, 
  3.565533533625*^9, 3.566309272875*^9, 3.566580661171875*^9, 
  3.566622549125*^9, 3.566744152984375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D2", "=", 
  RowBox[{
   RowBox[{"P2", "/", "T"}], 
   RowBox[{"(", 
    RowBox[{"1.0", "+", 
     RowBox[{"P2", " ", 
      RowBox[{"(", 
       RowBox[{"1.0", "+", 
        RowBox[{"3.7", " ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "4"}]}], "P2"}]}], ")"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2.37321"}], " ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "3"}]}]}], "+", 
        RowBox[{"(", 
         RowBox[{"2.23366", "/", "T"}], ")"}], "-", 
        RowBox[{"(", 
         RowBox[{"710.792", "/", 
          RowBox[{"T", "^", "2"}]}], ")"}], "+", 
        RowBox[{"(", 
         RowBox[{"7.75141", " ", 
          RowBox[{
           RowBox[{"10", "^", "4"}], "/", 
           RowBox[{"T", "^", "3"}]}]}], ")"}]}], ")"}]}]}], 
    ")"}]}]}]], "Input",
 CellChangeTimes->{{3.559226811890625*^9, 3.559226879359375*^9}, {
  3.559227461015625*^9, 3.55922750278125*^9}, {3.5592278353125*^9, 
  3.559227839390625*^9}, {3.5592285011875*^9, 3.559228504625*^9}}],

Cell[BoxData["0.02222067609232915`"], "Output",
 CellChangeTimes->{
  3.559226886390625*^9, 3.559227504453125*^9, 3.55922776009375*^9, 
   3.559227795703125*^9, 3.55922784084375*^9, 3.559228378703125*^9, 
   3.5592285105625*^9, 3.5592287413125*^9, 3.5592288771875*^9, {
   3.55922931928125*^9, 3.55922933446875*^9}, 3.559923792*^9, 
   3.559923824140625*^9, 3.559968595765625*^9, 3.560156140359375*^9, 
   3.5606837705*^9, 3.5606901200625*^9, 3.56075438546875*^9, 
   3.560757603109375*^9, 3.56075809196875*^9, 3.560762778265625*^9, 
   3.56076508584375*^9, 3.560788335296875*^9, 3.56113459721875*^9, 
   3.561728607609375*^9, 3.56179013240625*^9, 3.561982879*^9, 
   3.56204665446875*^9, 3.562069858109375*^9, 3.5623543290625*^9, 
   3.562354975046875*^9, 3.562466161753006*^9, 3.56296197640625*^9, 
   3.56308697703125*^9, 3.56372824590625*^9, 3.563821584421875*^9, 
   3.563839171125*^9, 3.56394610984375*^9, 3.563985693765625*^9, 
   3.564022168*^9, 3.56492563096875*^9, 3.56493004640625*^9, 
   3.565005098390625*^9, 3.565350987*^9, 3.565533533671875*^9, 
   3.56630927290625*^9, 3.56658066121875*^9, 3.56662254934375*^9, 
   3.56674415303125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"N1", "[", "\[Lambda]_", "]"}], ":=", 
  RowBox[{"1.0", " ", 
   RowBox[{"10", "^", 
    RowBox[{"-", "8"}]}], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2371.34", "+", 
        RowBox[{"683939.7", "/", 
         RowBox[{"(", 
          RowBox[{"130", "-", 
           RowBox[{"1", "/", 
            RowBox[{"\[Lambda]", "^", "2"}]}]}], ")"}]}], "+", 
        RowBox[{"4547.3", "/", 
         RowBox[{"(", 
          RowBox[{"38.9", "-", 
           RowBox[{"1", "/", 
            RowBox[{"\[Lambda]", "^", "2"}]}]}], ")"}]}]}], ")"}], " ", 
      "D1"}], "+", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"6487.31", "+", 
        RowBox[{"58.058", "/", 
         RowBox[{"\[Lambda]", "^", "2"}]}], "-", 
        RowBox[{"0.71150", "/", 
         RowBox[{"\[Lambda]", "^", "4"}]}], "+", 
        RowBox[{"0.08851", "/", 
         RowBox[{"\[Lambda]", "^", "6"}]}]}], ")"}], " ", "D2"}]}], 
    ")"}]}]}]], "Input",
 CellChangeTimes->{{3.55922696940625*^9, 3.55922712684375*^9}, {
  3.559227938*^9, 3.55922794115625*^9}, {3.55922857184375*^9, 
  3.559228575625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N1", "[", ".5", "]"}]], "Input",
 CellChangeTimes->{{3.559228774703125*^9, 3.559228777125*^9}}],

Cell[BoxData["0.0002166841889294286`"], "Output",
 CellChangeTimes->{3.559228778421875*^9, 3.5592288846875*^9, 
  3.5599237920625*^9, 3.55992382421875*^9, 3.5599685958125*^9, 
  3.560156140421875*^9, 3.5606837705625*^9, 3.560690120078125*^9, 
  3.5607543855*^9, 3.56075760315625*^9, 3.560758092140625*^9, 
  3.5607627783125*^9, 3.56076508590625*^9, 3.560788335359375*^9, 
  3.56113459728125*^9, 3.561728607640625*^9, 3.561790132453125*^9, 
  3.56198287903125*^9, 3.562046654484375*^9, 3.562069858140625*^9, 
  3.562354329078125*^9, 3.56235497509375*^9, 3.562466161768631*^9, 
  3.562961976453125*^9, 3.563086977046875*^9, 3.563728245921875*^9, 
  3.5638215844375*^9, 3.56383917115625*^9, 3.563946109859375*^9, 
  3.56398569384375*^9, 3.564022168015625*^9, 3.564925631015625*^9, 
  3.564930046484375*^9, 3.565005098796875*^9, 3.565350987046875*^9, 
  3.56553353371875*^9, 3.56630927296875*^9, 3.566580661265625*^9, 
  3.5666225495625*^9, 3.56674415309375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"DR", "[", 
   RowBox[{"\[Lambda]_", ",", "\[Lambda]0_", ",", "AM_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"Tan", "[", 
    RowBox[{"ZD", "[", "AM", "]"}], "]"}], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"N1", "[", 
      RowBox[{"\[Lambda]0", "/", "1000"}], "]"}], "-", 
     RowBox[{"N1", "[", 
      RowBox[{"\[Lambda]", "/", "1000"}], "]"}]}], ")"}], " ", 
   "206264.8"}]}]], "Input",
 CellChangeTimes->{{3.559227153421875*^9, 3.55922723934375*^9}, {
  3.559229438578125*^9, 3.5592294713125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DR", "[", 
  RowBox[{"600", ",", "500", ",", "1.1"}], "]"}]], "Input",
 CellChangeTimes->{{3.559227244296875*^9, 3.55922726584375*^9}, {
  3.559227328703125*^9, 3.559227336546875*^9}, {3.559229458546875*^9, 
  3.559229482640625*^9}}],

Cell[BoxData["0.14651783271243268`"], "Output",
 CellChangeTimes->{{3.5592272623125*^9, 3.5592272669375*^9}, 
   3.559227338328125*^9, 3.5592275203125*^9, 3.559227576125*^9, {
   3.55922776771875*^9, 3.559227795828125*^9}, 3.55922787115625*^9, 
   3.559227951953125*^9, 3.559228519546875*^9, 3.559228602046875*^9, 
   3.55922874140625*^9, 3.55922889053125*^9, 3.55922934434375*^9, 
   3.55922948390625*^9, 3.559923792140625*^9, 3.559923824296875*^9, 
   3.55996859584375*^9, 3.560156140484375*^9, 3.560683770625*^9, 
   3.56069012009375*^9, 3.56075438553125*^9, 3.560757603203125*^9, 
   3.5607580921875*^9, 3.560762778375*^9, 3.56076508596875*^9, 
   3.560788335421875*^9, 3.561134597328125*^9, 3.56172860815625*^9, 
   3.561790132484375*^9, 3.5619828790625*^9, 3.5620466545*^9, 
   3.562069858171875*^9, 3.56235432909375*^9, 3.562354975125*^9, 
   3.562466161784256*^9, 3.562961976484375*^9, 3.563086977078125*^9, 
   3.5637282459375*^9, 3.563821584453125*^9, 3.563839171203125*^9, 
   3.563946109890625*^9, 3.56398569390625*^9, 3.56402216803125*^9, 
   3.56492563109375*^9, 3.564930046546875*^9, 3.56500509903125*^9, 
   3.56535098709375*^9, 3.56553353378125*^9, 3.566309273015625*^9, 
   3.566580662515625*^9, 3.566622549796875*^9, 3.56674415315625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DR", "[", 
  RowBox[{"350", ",", "400", ",", "1.2"}], "]"}]], "Input",
 CellChangeTimes->{{3.5599696730625*^9, 3.5599696853125*^9}}],

Cell[BoxData[
 RowBox[{"-", "0.35802396896175176`"}]], "Output",
 CellChangeTimes->{3.55996968678125*^9, 3.560156140546875*^9, 
  3.560683770671875*^9, 3.560690120109375*^9, 3.560754385546875*^9, 
  3.56075760325*^9, 3.560758092234375*^9, 3.5607627784375*^9, 
  3.560765086015625*^9, 3.56078833546875*^9, 3.561134597359375*^9, 
  3.5617286081875*^9, 3.5617901325*^9, 3.561982879078125*^9, 
  3.562046654515625*^9, 3.562069858203125*^9, 3.562354329109375*^9, 
  3.56235497515625*^9, 3.562466161799881*^9, 3.562961976515625*^9, 
  3.56308697709375*^9, 3.563728245953125*^9, 3.56382158446875*^9, 
  3.563839171234375*^9, 3.56394610990625*^9, 3.563985693953125*^9, 
  3.564022168046875*^9, 3.564925631171875*^9, 3.56493004659375*^9, 
  3.565005099265625*^9, 3.565350987171875*^9, 3.565533533828125*^9, 
  3.5663092730625*^9, 3.566580662578125*^9, 3.566622550015625*^9, 
  3.56674415321875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DR", "[", 
  RowBox[{"820", ",", "800", ",", "1.4"}], "]"}]], "Input",
 CellChangeTimes->{{3.56630870703125*^9, 3.566308721359375*^9}}],

Cell[BoxData["0.018645071565736228`"], "Output",
 CellChangeTimes->{3.566309273203125*^9, 3.566580662625*^9, 
  3.566622550234375*^9, 3.566744153265625*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ADCloss", "[", "\[Lambda]_", "]"}], ":=", 
   RowBox[{"Switch", "[", 
    RowBox[{
    "\[Lambda]", ",", "\[IndentingNewLine]", "350", ",", "0.78", ",", 
     "\[IndentingNewLine]", "370", ",", ".863", ",", "\[IndentingNewLine]", 
     "400", ",", ".941", ",", "\[IndentingNewLine]", "450", ",", ".935", ",", 
     "\[IndentingNewLine]", "500", ",", ".931", ",", "\[IndentingNewLine]", 
     "550", ",", ".936", ",", "\[IndentingNewLine]", "600", ",", ".942", ",", 
     "\[IndentingNewLine]", "650", ",", ".946", ",", "\[IndentingNewLine]", 
     "700", ",", ".957", ",", "\[IndentingNewLine]", "750", ",", ".962", ",", 
     "\[IndentingNewLine]", "800", ",", ".966", ",", "\[IndentingNewLine]", 
     "850", ",", ".963", ",", "\[IndentingNewLine]", "900", ",", ".959", ",", 
     "\[IndentingNewLine]", "950", ",", ".955", ",", "\[IndentingNewLine]", 
     "1000", ",", ".951", ",", "\[IndentingNewLine]", "1050", ",", "0.947"}], 
    "]"}]}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "nominal", " ", "throughput", " ", "for", " ", "ADC", " ", "as", " ", "in",
     " ", 
    RowBox[{"SK", "'"}], "s", " ", 
    RowBox[{"V3", ".", " ", "last"}], " ", "number", " ", "0.947", " ", 
    "estimated"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.559230911953125*^9, 3.559230993828125*^9}, {
   3.55923103521875*^9, 3.55923107059375*^9}, {3.559231114765625*^9, 
   3.559231258234375*^9}, 3.55997006240625*^9, {3.559970213921875*^9, 
   3.559970216875*^9}, {3.567083941046875*^9, 3.56708397040625*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"AMloss", "[", "\[Lambda]_", "]"}], ":=", 
  RowBox[{"Switch", "[", 
   RowBox[{
   "\[Lambda]", ",", "\[IndentingNewLine]", "350", ",", "0.595", ",", 
    "\[IndentingNewLine]", "370", ",", "0.614", ",", "\[IndentingNewLine]", 
    "400", ",", "0.679", ",", "\[IndentingNewLine]", "450", ",", "0.770", ",",
     "\[IndentingNewLine]", "500", ",", "0.824", ",", "\[IndentingNewLine]", 
    "550", ",", "0.846", ",", "\[IndentingNewLine]", "600", ",", "0.855", ",",
     "\[IndentingNewLine]", "650", ",", "0.883", ",", "\[IndentingNewLine]", 
    "700", ",", "0.917", ",", "\[IndentingNewLine]", "750", ",", "0.943", ",",
     "\[IndentingNewLine]", "800", ",", "0.963", ",", "\[IndentingNewLine]", 
    "850", ",", "0.976", ",", "\[IndentingNewLine]", "900", ",", "0.985", ",",
     "\[IndentingNewLine]", "950", ",", "0.991", ",", "\[IndentingNewLine]", 
    "1000", ",", "0.993"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "CTIO", " ", "extinction", " ", "losses", " ", "per", " ", "air", " ", 
    "mass"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.559231316546875*^9, 3.55923140784375*^9}, {
  3.559231925328125*^9, 3.559231999671875*^9}, {3.56708398225*^9, 
  3.5670840066875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SkyBr", "[", 
    RowBox[{"\[Lambda]_", ",", "AM_"}], "]"}], ":=", 
   RowBox[{"AM", " ", 
    RowBox[{
     RowBox[{"AMloss", "[", "\[Lambda]", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{"AM", "-", "1"}], ")"}]}]}]}], "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"model", " ", "of", " ", "Patat"}], ",", " ", "Sanchez", ",", " ",
     
    RowBox[{"assuming", " ", "all", " ", "airglow"}]}], " ", 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.56385907084375*^9, 3.563859124515625*^9}, {
  3.563859188078125*^9, 3.563859247390625*^9}, {3.563859446921875*^9, 
  3.5638594496875*^9}, {3.567084015765625*^9, 3.567084033046875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"FAM", "[", "AM_", "]"}], ":=", 
   RowBox[{"Switch", "[", 
    RowBox[{
    "AM", ",", "\[IndentingNewLine]", "1.05", ",", "0.333", ",", 
     "\[IndentingNewLine]", "1.15", ",", "0.314", ",", "\[IndentingNewLine]", 
     "1.25", ",", "0.224", ",", "\[IndentingNewLine]", "1.35", ",", "0.09", 
     ",", "\[IndentingNewLine]", "1.45", ",", "0.024", ",", 
     "\[IndentingNewLine]", "1.55", ",", "0.01", ",", "\[IndentingNewLine]", 
     "1.65", ",", "0.001", ",", "\[IndentingNewLine]", "1.75", ",", "0.001", 
     ",", "\[IndentingNewLine]", "1.85", ",", "0.001", ",", 
     "\[IndentingNewLine]", "1.95", ",", "0", ",", "\[IndentingNewLine]", 
     "2.05", ",", "0"}], "]"}]}], "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"SK", "'"}], "s", " ", "SDSS", " ", "AM", " ", 
     RowBox[{"distn", ".", " ", "deleted"}], " ", "2.05", " ", "field"}], ",",
     " ", 
    RowBox[{"special", " ", 
     RowBox[{"request", "!"}]}]}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5592314550625*^9, 3.559231566203125*^9}, {
  3.559232890890625*^9, 3.55923293778125*^9}, {3.56000856196875*^9, 
  3.560008579765625*^9}, {3.56000866125*^9, 3.560008680296875*^9}, {
  3.567084044484375*^9, 3.567084059671875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ApEtaAll", "[", 
   RowBox[{
   "\[Lambda]_", ",", "\[Lambda]0_", ",", "FWHMsite_", ",", "AM_", ",", 
    "Decent_", ",", "RmsSpot_", ",", "FWHMFix_", ",", "DDefoc_", ",", 
    "PlateSc_", ",", "DAp_", ",", "RE_", ",", "RV_"}], "]"}], ":=", 
  RowBox[{"ApEtad", "[", 
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{"MMEVG2", "[", 
      RowBox[{
       RowBox[{"Rsee", "[", 
        RowBox[{"FWHMsite", ",", "\[Lambda]", ",", "AM"}], "]"}], ",", "RE", 
       ",", "RV", ",", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"FWHMFix", "/", "FWHMbyrms"}], ")"}], "^", "2"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"RmsSpot", "/", "PlateSc"}], ")"}], "^", "2"}], "+", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"DDefoc", "/", "PlateSc"}], ")"}], "^", "2"}], "/", 
          "8"}]}], "]"}]}], "]"}], "]"}], ",", 
    RowBox[{"BetaMEVG0", "[", 
     RowBox[{
      RowBox[{"Rsee", "[", 
       RowBox[{"FWHMsite", ",", "\[Lambda]", ",", "AM"}], "]"}], ",", "RE", 
      ",", "RV", ",", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"FWHMFix", "/", "FWHMbyrms"}], ")"}], "^", "2"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"RmsSpot", "/", "PlateSc"}], ")"}], "^", "2"}], "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"DDefoc", "/", "PlateSc"}], ")"}], "^", "2"}], "/", 
         "8"}]}], "]"}]}], "]"}], ",", 
    RowBox[{"DAp", "/", "2"}], ",", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"Decent", "/", "PlateSc"}], ")"}], "^", "2"}], "+", 
      RowBox[{
       RowBox[{"DR", "[", 
        RowBox[{"\[Lambda]", ",", "\[Lambda]0", ",", "AM"}], "]"}], "^", 
       "2"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "ApEtaAll", " ", "is", " ", "general", " ", "purpose", " ", "aperture", 
     " ", "loss", " ", "function", "\[IndentingNewLine]", " ", "\[Lambda]"}], 
    ",", 
    RowBox[{
     RowBox[{
     "\[Lambda]0", " ", "are", " ", "target", " ", "wavelength", " ", "and", 
      " ", "fiber"}], "-", 
     RowBox[{
     "centering", " ", "wavelength", "\[IndentingNewLine]", "AM", " ", "is", 
      " ", "airmass", "\[IndentingNewLine]", "Decent", " ", "is", " ", 
      "decentering", " ", "in", " ", "um", " ", 
      RowBox[{"(", 
       RowBox[{
       "added", " ", "in", " ", "quadrature", " ", "to", " ", "differential", 
        " ", "refraction"}], ")"}], "\[IndentingNewLine]", "RmsSpot", " ", 
      "is", " ", "spot", " ", "size", " ", "from", " ", "ZEMAX"}]}], ",", " ",
     
    RowBox[{
    "assumed", " ", "Gaussian", "\[IndentingNewLine]", " ", "FWHMFix", " ", 
     "is", " ", "addition", " ", "for", " ", "dome", " ", "seeing"}], ",", 
    " ", "guiding", ",", " ", 
    RowBox[{
     RowBox[{
     "alignment", " ", "etc", "\[IndentingNewLine]", "DDefoc", " ", "is", " ",
       "defocus", " ", "diameter"}], " ", "=", " ", 
     RowBox[{
      RowBox[{"axial", " ", 
       RowBox[{"dist", "/", "f"}]}], "-", 
      RowBox[{
      "number", "\[IndentingNewLine]", "PlateSc", " ", "is", " ", "plate", 
       " ", "scale", " ", 
       RowBox[{"(", 
        RowBox[{"um", "/", "arcsec"}], ")"}], "\[IndentingNewLine]", "DAp", 
       " ", "is", " ", "fiber", " ", "diamater", "\[IndentingNewLine]", "RE", 
       " ", "is", " ", "effective", " ", "radius", " ", "for", " ", 
       "exponential", " ", "profile", "\[IndentingNewLine]", "RV", " ", "is", 
       " ", "effective", " ", "radius", " ", "for", " ", "deVaucouleurs", " ",
        "profile"}]}]}]}], "\[IndentingNewLine]", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5650754956875*^9, 3.565075629765625*^9}, {
   3.56507574375*^9, 3.565075743765625*^9}, {3.5650758294375*^9, 
   3.565075829453125*^9}, {3.565084330078125*^9, 3.5650843788125*^9}, {
   3.56508460584375*^9, 3.5650846794375*^9}, {3.565084729046875*^9, 
   3.565084759296875*^9}, {3.565084997203125*^9, 3.565085244*^9}, {
   3.56508531703125*^9, 3.565085366796875*^9}, 3.565085398296875*^9, {
   3.565085483359375*^9, 3.565085502140625*^9}, 3.565085681140625*^9, {
   3.56508576859375*^9, 3.565085804640625*^9}, {3.565085845578125*^9, 
   3.56508585884375*^9}, {3.56508592109375*^9, 3.565086128734375*^9}, {
   3.565086294265625*^9, 3.565086392421875*^9}, {3.565087687953125*^9, 
   3.56508771009375*^9}, {3.56508777109375*^9, 3.565087780828125*^9}, 
   3.56508785846875*^9, {3.56508797484375*^9, 3.5650880271875*^9}, {
   3.5650880675*^9, 3.56508807875*^9}, {3.5651844965625*^9, 
   3.565184573375*^9}, {3.565184700265625*^9, 3.565184791765625*^9}, {
   3.5651849595*^9, 3.565184960015625*^9}, {3.5651887681875*^9, 
   3.565188794765625*^9}, 3.565188828234375*^9, {3.566410117109375*^9, 
   3.566410137828125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ApEtaAll", "[", 
  RowBox[{
  "350", ",", "400", ",", "FWHMCT", ",", "1.0", ",", "10", ",", "25", ",", 
   "0.5", ",", "20", ",", "PlateScDESP", ",", "1.76", ",", "0", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.565086470875*^9, 3.565086519484375*^9}, {
   3.56508875784375*^9, 3.565088758609375*^9}, {3.565089014375*^9, 
   3.56508903559375*^9}, {3.565184971234375*^9, 3.56518498*^9}, {
   3.565185023890625*^9, 3.565185078296875*^9}, 3.566654829140625*^9}],

Cell[BoxData["0.6432744466346123`"], "Output",
 CellChangeTimes->{
  3.565087111453125*^9, 3.565087472625*^9, {3.565087532453125*^9, 
   3.565087541421875*^9}, 3.56508762221875*^9, 3.56508808634375*^9, 
   3.565088760328125*^9, 3.56508908728125*^9, {3.565185017828125*^9, 
   3.56518508046875*^9}, 3.5653509874375*^9, 3.56631055415625*^9, 
   3.56641014415625*^9, 3.566580662796875*^9, 3.56662255075*^9, 
   3.566654830796875*^9, 3.56674415353125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ApEtaAll", "[", 
  RowBox[{
  "850", ",", "850", ",", "FWHMCT", ",", "1.0", ",", "10", ",", "25", ",", 
   "0.5", ",", "20", ",", "PlateScDESP", ",", "1.76", ",", "Relg", ",", "0"}],
   "]"}]], "Input",
 CellChangeTimes->{{3.565086470875*^9, 3.565086519484375*^9}, {
   3.56508875784375*^9, 3.565088803625*^9}, {3.56508901928125*^9, 
   3.56508904409375*^9}, {3.565185097609375*^9, 3.5651851319375*^9}, 
   3.56665483475*^9}],

Cell[BoxData["0.5641097136719287`"], "Output",
 CellChangeTimes->{
  3.565088805796875*^9, 3.5650890878125*^9, {3.56518510059375*^9, 
   3.565185133953125*^9}, 3.56535098775*^9, 3.56631055453125*^9, 
   3.566580662953125*^9, 3.5666225510625*^9, 3.566654836640625*^9, 
   3.56674415384375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ApEtaAll", "[", 
  RowBox[{
  "800", ",", "800", ",", "FWHMCT", ",", "1.0", ",", "10", ",", "25", ",", 
   "0.5", ",", "20", ",", "PlateScDESP", ",", "1.76", ",", "0", ",", "Rlrg"}],
   "]"}]], "Input",
 CellChangeTimes->{{3.565086470875*^9, 3.565086519484375*^9}, {
   3.56508875784375*^9, 3.565088758609375*^9}, {3.565088808765625*^9, 
   3.565088810234375*^9}, {3.5650888798125*^9, 3.565088905796875*^9}, {
   3.565089024078125*^9, 3.565089049609375*^9}, {3.56518513796875*^9, 
   3.565185140734375*^9}, 3.566654848234375*^9}],

Cell[BoxData["0.47577366234788715`"], "Output",
 CellChangeTimes->{3.5650889094375*^9, 3.565089088296875*^9, 
  3.565185142234375*^9, 3.565350988171875*^9, 3.566310554921875*^9, 
  3.566580663140625*^9, 3.56662255146875*^9, 3.566654850328125*^9, 
  3.56674415425*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ApEtaDR7", "[", 
   RowBox[{
   "\[Lambda]_", ",", "\[Lambda]0_", ",", "AM_", ",", "rfib_", ",", "RE_", 
    ",", "RV_"}], "]"}], ":=", 
  RowBox[{"ApEtaAll", "[", 
   RowBox[{
   "\[Lambda]", ",", "\[Lambda]0", ",", "FWHMCT", ",", "AM", ",", "10", ",", 
    RowBox[{"RMSSpot7", "[", "\[Lambda]", "]"}], ",", "0.5", ",", "20", ",", 
    "PlateScDESP", ",", 
    RowBox[{"2", " ", "rfib"}], ",", "RE", ",", "RV"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.56631122259375*^9, 3.56631127196875*^9}, {
  3.56631135596875*^9, 3.566311369859375*^9}, {3.566396222953125*^9, 
  3.5663962236875*^9}, {3.56639627425*^9, 3.566396298296875*^9}, {
  3.566396333453125*^9, 3.5663964026875*^9}, {3.566396443546875*^9, 
  3.5663964920625*^9}, {3.566738521046875*^9, 3.566738525203125*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
  "Aperture", " ", "efficiencies", " ", "at", " ", "zenith", " ", "for", " ", 
   "1.8", "\"\< fibers \>"}], "*)"}]], "Input",
 CellChangeTimes->{{3.562048879875*^9, 3.562048888140625*^9}, {
  3.56533559546875*^9, 3.565335626453125*^9}, {3.566738354484375*^9, 
  3.56673836740625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"\[Lambda]", ",", "\"\< \>\"", ",", 
     RowBox[{"ApEtaDR7", "[", 
      RowBox[{"\[Lambda]", ",", "400", ",", "1.0", ",", 
       RowBox[{"1.8", "/", "2"}], ",", "0", ",", "0"}], "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Lambda]", ",", 
     RowBox[{"{", 
      RowBox[{
      "350", ",", "370", ",", "400", ",", "450", ",", "500", ",", "550"}], 
      "}"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", "qsos", " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5653349170625*^9, 3.5653349579375*^9}, {
  3.565335482171875*^9, 3.56533548296875*^9}, {3.567087982421875*^9, 
  3.567087992171875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "350", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.6524511828961429`"}],
  SequenceForm[350, " ", 0.6524511828961429],
  Editable->False]], "Print",
 CellChangeTimes->{3.565334960734375*^9, 3.56533548790625*^9, 
  3.56535143340625*^9, 3.5663966885*^9, 3.566623553890625*^9, 
  3.566745620453125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "370", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.6646735919521368`"}],
  SequenceForm[370, " ", 0.6646735919521368],
  Editable->False]], "Print",
 CellChangeTimes->{3.565334960734375*^9, 3.56533548790625*^9, 
  3.56535143340625*^9, 3.5663966885*^9, 3.566623553890625*^9, 
  3.566745620640625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "400", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.6827620360426512`"}],
  SequenceForm[400, " ", 0.6827620360426512],
  Editable->False]], "Print",
 CellChangeTimes->{3.565334960734375*^9, 3.56533548790625*^9, 
  3.56535143340625*^9, 3.5663966885*^9, 3.566623553890625*^9, 
  3.56674562084375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "450", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.7128612838608261`"}],
  SequenceForm[450, " ", 0.7128612838608261],
  Editable->False]], "Print",
 CellChangeTimes->{3.565334960734375*^9, 3.56533548790625*^9, 
  3.56535143340625*^9, 3.5663966885*^9, 3.566623553890625*^9, 
  3.5667456210625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "500", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.7462635184505771`"}],
  SequenceForm[500, " ", 0.7462635184505771],
  Editable->False]], "Print",
 CellChangeTimes->{3.565334960734375*^9, 3.56533548790625*^9, 
  3.56535143340625*^9, 3.5663966885*^9, 3.566623553890625*^9, 
  3.56674562125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "550", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.7657379513845941`"}],
  SequenceForm[550, " ", 0.7657379513845941],
  Editable->False]], "Print",
 CellChangeTimes->{3.565334960734375*^9, 3.56533548790625*^9, 
  3.56535143340625*^9, 3.5663966885*^9, 3.566623553890625*^9, 
  3.566745621453125*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"\[Lambda]", ",", "\"\< \>\"", ",", 
     RowBox[{"ApEtaDR7", "[", 
      RowBox[{"\[Lambda]", ",", "\[Lambda]", ",", "1.0", ",", 
       RowBox[{"1.8", "/", "2"}], ",", "0", ",", "0"}], "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Lambda]", ",", 
     RowBox[{"{", 
      RowBox[{
      "550", ",", "600", ",", "650", ",", "700", ",", "750", ",", "800", ",", 
       "850", ",", "900", ",", "1000", ",", "1050"}], "}"}]}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "PS", " ", "in", " ", "red", " ", "for", " ", "throughput", " ", "plot"}], 
   " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.56533509859375*^9, 3.565335103125*^9}, {
  3.565335135265625*^9, 3.565335163859375*^9}, {3.56533520384375*^9, 
  3.56533520425*^9}, {3.565335271703125*^9, 3.565335272671875*^9}, {
  3.565335376484375*^9, 3.56533537715625*^9}, {3.56708801559375*^9, 
  3.567088040421875*^9}, {3.567088166578125*^9, 3.567088182578125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "550", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.7657379513845941`"}],
  SequenceForm[550, " ", 0.7657379513845941],
  Editable->False]], "Print",
 CellChangeTimes->{3.567088186546875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "600", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.7716508700214672`"}],
  SequenceForm[600, " ", 0.7716508700214672],
  Editable->False]], "Print",
 CellChangeTimes->{3.567088186765625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "650", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.7774318566454973`"}],
  SequenceForm[650, " ", 0.7774318566454973],
  Editable->False]], "Print",
 CellChangeTimes->{3.567088186984375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "700", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.7812125344316491`"}],
  SequenceForm[700, " ", 0.7812125344316491],
  Editable->False]], "Print",
 CellChangeTimes->{3.56708818721875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "750", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.7839976261506232`"}],
  SequenceForm[750, " ", 0.7839976261506232],
  Editable->False]], "Print",
 CellChangeTimes->{3.5670881874375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "800", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.7868658273752969`"}],
  SequenceForm[800, " ", 0.7868658273752969],
  Editable->False]], "Print",
 CellChangeTimes->{3.567088187671875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "850", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.7860624829973514`"}],
  SequenceForm[850, " ", 0.7860624829973514],
  Editable->False]], "Print",
 CellChangeTimes->{3.567088187890625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "900", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.7864290657065697`"}],
  SequenceForm[900, " ", 0.7864290657065697],
  Editable->False]], "Print",
 CellChangeTimes->{3.56708818809375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "1000", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.7847449878277828`"}],
  SequenceForm[1000, " ", 0.7847449878277828],
  Editable->False]], "Print",
 CellChangeTimes->{3.567088188359375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "1050", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.7826475963717251`"}],
  SequenceForm[1050, " ", 0.7826475963717251],
  Editable->False]], "Print",
 CellChangeTimes->{3.56708818859375*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"\[Lambda]", ",", "\"\< \>\"", ",", 
     RowBox[{"ApEtaDR7", "[", 
      RowBox[{"\[Lambda]", ",", "\[Lambda]", ",", "1.0", ",", 
       RowBox[{"1.8", "/", "2"}], ",", "Relg", ",", "0"}], "]"}]}], "]"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"\[Lambda]", ",", 
     RowBox[{"{", 
      RowBox[{
      "550", ",", "600", ",", "650", ",", "700", ",", "750", ",", "800", ",", 
       "850", ",", "900", ",", "1000", ",", "1050"}], "}"}]}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", "elgs", " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.56533509859375*^9, 3.565335103125*^9}, {
  3.565335135265625*^9, 3.565335163859375*^9}, {3.56533520384375*^9, 
  3.56533520425*^9}, {3.565335271703125*^9, 3.565335272671875*^9}, {
  3.565335376484375*^9, 3.56533537715625*^9}, {3.56708801559375*^9, 
  3.567088040421875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "550", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.6175574370543812`"}],
  SequenceForm[550, " ", 0.6175574370543812],
  Editable->False]], "Print",
 CellChangeTimes->{3.5653355135625*^9, 3.56535143853125*^9, 
  3.5663966933125*^9, 3.566623557390625*^9, 3.566745623828125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "600", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.6219376317175705`"}],
  SequenceForm[600, " ", 0.6219376317175705],
  Editable->False]], "Print",
 CellChangeTimes->{3.5653355135625*^9, 3.56535143853125*^9, 
  3.5663966933125*^9, 3.566623557390625*^9, 3.566745624109375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "650", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.6262500890231667`"}],
  SequenceForm[650, " ", 0.6262500890231667],
  Editable->False]], "Print",
 CellChangeTimes->{3.5653355135625*^9, 3.56535143853125*^9, 
  3.5663966933125*^9, 3.566623557390625*^9, 3.566745624421875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "700", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.6289890399418822`"}],
  SequenceForm[700, " ", 0.6289890399418822],
  Editable->False]], "Print",
 CellChangeTimes->{3.5653355135625*^9, 3.56535143853125*^9, 
  3.5663966933125*^9, 3.566623557390625*^9, 3.56674562471875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "750", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.6309406286097184`"}],
  SequenceForm[750, " ", 0.6309406286097184],
  Editable->False]], "Print",
 CellChangeTimes->{3.5653355135625*^9, 3.56535143853125*^9, 
  3.5663966933125*^9, 3.566623557390625*^9, 3.56674562503125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "800", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.6329947040878398`"}],
  SequenceForm[800, " ", 0.6329947040878398],
  Editable->False]], "Print",
 CellChangeTimes->{3.5653355135625*^9, 3.56535143853125*^9, 
  3.5663966933125*^9, 3.566623557390625*^9, 3.566745625328125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "850", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.6320873971916087`"}],
  SequenceForm[850, " ", 0.6320873971916087],
  Editable->False]], "Print",
 CellChangeTimes->{3.5653355135625*^9, 3.56535143853125*^9, 
  3.5663966933125*^9, 3.566623557390625*^9, 3.566745625625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "900", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.6321626912181448`"}],
  SequenceForm[900, " ", 0.6321626912181448],
  Editable->False]], "Print",
 CellChangeTimes->{3.5653355135625*^9, 3.56535143853125*^9, 
  3.5663966933125*^9, 3.566623557390625*^9, 3.566745625890625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "1000", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.6304297311687331`"}],
  SequenceForm[1000, " ", 0.6304297311687331],
  Editable->False]], "Print",
 CellChangeTimes->{3.5653355135625*^9, 3.56535143853125*^9, 
  3.5663966933125*^9, 3.566623557390625*^9, 3.566745626171875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "1050", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.6285894942963196`"}],
  SequenceForm[1050, " ", 0.6285894942963196],
  Editable->False]], "Print",
 CellChangeTimes->{3.5653355135625*^9, 3.56535143853125*^9, 
  3.5663966933125*^9, 3.566623557390625*^9, 3.56674562646875*^9}]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"now", " ", "AM"}], "=", "1.2"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.562048879875*^9, 3.562048888140625*^9}, 
   3.56533559546875*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"\[Lambda]", ",", "\"\< \>\"", ",", 
     RowBox[{"ApEtaDR7", "[", 
      RowBox[{"\[Lambda]", ",", "400", ",", "1.0", ",", 
       RowBox[{"1.8", "/", "2"}], ",", "0", ",", "0"}], "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Lambda]", ",", 
     RowBox[{"{", 
      RowBox[{
      "350", ",", "370", ",", "400", ",", "450", ",", "500", ",", "550"}], 
      "}"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", "qsos", " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5653349170625*^9, 3.5653349579375*^9}, {
  3.565335482171875*^9, 3.56533548296875*^9}, {3.56708806190625*^9, 
  3.567088062328125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "350", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.6524511828961429`"}],
  SequenceForm[350, " ", 0.6524511828961429],
  Editable->False]], "Print",
 CellChangeTimes->{3.565334960734375*^9, 3.56533548790625*^9, 
  3.565351448078125*^9, 3.566396741*^9, 3.566623566734375*^9, 
  3.566745626765625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "370", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.6646735919521368`"}],
  SequenceForm[370, " ", 0.6646735919521368],
  Editable->False]], "Print",
 CellChangeTimes->{3.565334960734375*^9, 3.56533548790625*^9, 
  3.565351448078125*^9, 3.566396741*^9, 3.566623566734375*^9, 
  3.56674562696875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "400", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.6827620360426512`"}],
  SequenceForm[400, " ", 0.6827620360426512],
  Editable->False]], "Print",
 CellChangeTimes->{3.565334960734375*^9, 3.56533548790625*^9, 
  3.565351448078125*^9, 3.566396741*^9, 3.566623566734375*^9, 
  3.56674562715625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "450", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.7128612838608261`"}],
  SequenceForm[450, " ", 0.7128612838608261],
  Editable->False]], "Print",
 CellChangeTimes->{3.565334960734375*^9, 3.56533548790625*^9, 
  3.565351448078125*^9, 3.566396741*^9, 3.566623566734375*^9, 
  3.566745627359375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "500", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.7462635184505771`"}],
  SequenceForm[500, " ", 0.7462635184505771],
  Editable->False]], "Print",
 CellChangeTimes->{3.565334960734375*^9, 3.56533548790625*^9, 
  3.565351448078125*^9, 3.566396741*^9, 3.566623566734375*^9, 
  3.5667456275625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "550", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.7657379513845941`"}],
  SequenceForm[550, " ", 0.7657379513845941],
  Editable->False]], "Print",
 CellChangeTimes->{3.565334960734375*^9, 3.56533548790625*^9, 
  3.565351448078125*^9, 3.566396741*^9, 3.566623566734375*^9, 
  3.56674562775*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"\[Lambda]", ",", "\"\< \>\"", ",", 
     RowBox[{"ApEtaDR7", "[", 
      RowBox[{"\[Lambda]", ",", "\[Lambda]", ",", "1.2", ",", 
       RowBox[{"1.8", "/", "2"}], ",", "Relg", ",", "0"}], "]"}]}], "]"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"\[Lambda]", ",", 
     RowBox[{"{", 
      RowBox[{
      "550", ",", "600", ",", "650", ",", "700", ",", "750", ",", "800", ",", 
       "850", ",", "900", ",", "1000", ",", "1050"}], "}"}]}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", "elgs", " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.56533509859375*^9, 3.565335103125*^9}, {
  3.565335135265625*^9, 3.565335163859375*^9}, {3.56533520384375*^9, 
  3.56533520425*^9}, {3.565335271703125*^9, 3.565335272671875*^9}, {
  3.565335376484375*^9, 3.56533537715625*^9}, {3.56533556040625*^9, 
  3.565335560796875*^9}, {3.5670882280625*^9, 3.567088233328125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "550", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.5857649946293105`"}],
  SequenceForm[550, " ", 0.5857649946293105],
  Editable->False]], "Print",
 CellChangeTimes->{3.5653355135625*^9, 3.56533556178125*^9, 
  3.565351451265625*^9, 3.566396744265625*^9, 3.566623570140625*^9, 
  3.566745630140625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "600", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.5906822468597965`"}],
  SequenceForm[600, " ", 0.5906822468597965],
  Editable->False]], "Print",
 CellChangeTimes->{3.5653355135625*^9, 3.56533556178125*^9, 
  3.565351451265625*^9, 3.566396744265625*^9, 3.566623570140625*^9, 
  3.56674563040625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "650", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.5954542870726788`"}],
  SequenceForm[650, " ", 0.5954542870726788],
  Editable->False]], "Print",
 CellChangeTimes->{3.5653355135625*^9, 3.56533556178125*^9, 
  3.565351451265625*^9, 3.566396744265625*^9, 3.566623570140625*^9, 
  3.5667456306875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "700", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.5987182295641597`"}],
  SequenceForm[700, " ", 0.5987182295641597],
  Editable->False]], "Print",
 CellChangeTimes->{3.5653355135625*^9, 3.56533556178125*^9, 
  3.565351451265625*^9, 3.566396744265625*^9, 3.566623570140625*^9, 
  3.56674563096875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "750", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.6012048912985412`"}],
  SequenceForm[750, " ", 0.6012048912985412],
  Editable->False]], "Print",
 CellChangeTimes->{3.5653355135625*^9, 3.56533556178125*^9, 
  3.565351451265625*^9, 3.566396744265625*^9, 3.566623570140625*^9, 
  3.56674563125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "800", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.603718049493835`"}],
  SequenceForm[800, " ", 0.603718049493835],
  Editable->False]], "Print",
 CellChangeTimes->{3.5653355135625*^9, 3.56533556178125*^9, 
  3.565351451265625*^9, 3.566396744265625*^9, 3.566623570140625*^9, 
  3.56674563153125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "850", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.6034806270130326`"}],
  SequenceForm[850, " ", 0.6034806270130326],
  Editable->False]], "Print",
 CellChangeTimes->{3.5653355135625*^9, 3.56533556178125*^9, 
  3.565351451265625*^9, 3.566396744265625*^9, 3.566623570140625*^9, 
  3.566745631828125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "900", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.6040767511345089`"}],
  SequenceForm[900, " ", 0.6040767511345089],
  Editable->False]], "Print",
 CellChangeTimes->{3.5653355135625*^9, 3.56533556178125*^9, 
  3.565351451265625*^9, 3.566396744265625*^9, 3.566623570140625*^9, 
  3.566745632109375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "1000", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.6033781216500451`"}],
  SequenceForm[1000, " ", 0.6033781216500451],
  Editable->False]], "Print",
 CellChangeTimes->{3.5653355135625*^9, 3.56533556178125*^9, 
  3.565351451265625*^9, 3.566396744265625*^9, 3.566623570140625*^9, 
  3.566745632390625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "1050", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.6021056915144899`"}],
  SequenceForm[1050, " ", 0.6021056915144899],
  Editable->False]], "Print",
 CellChangeTimes->{3.5653355135625*^9, 3.56533556178125*^9, 
  3.565351451265625*^9, 3.566396744265625*^9, 3.566623570140625*^9, 
  3.566745632671875*^9}]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"end", " ", "of", " ", "aperture", " ", "stuff"}], " ", "*)"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.567088243*^9, 3.56708825953125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SSpeedAll", "[", 
   RowBox[{
   "\[Lambda]_", ",", "\[Lambda]0_", ",", "FWHMsite_", ",", "AM_", ",", 
    "Decent_", ",", "RmsSpot_", ",", "FWHMFix_", ",", "DDefoc_", ",", 
    "PlateSc_", ",", "DAp_", ",", "RE_", ",", "RV_", ",", "Res1_", ",", 
    "VSig_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"AMloss", "[", "\[Lambda]", "]"}], "^", "AM"}], " ", 
      RowBox[{
       RowBox[{"ApEtaAll", "[", 
        RowBox[{
        "\[Lambda]", ",", "\[Lambda]0", ",", "FWHMsite", ",", "AM", ",", 
         "Decent", ",", "RmsSpot", ",", "FWHMFix", ",", "DDefoc", ",", 
         "PlateSc", ",", "DAp", ",", "RE", ",", "RV"}], "]"}], "/", "DAp"}]}],
      ")"}], "^", "2"}], "  ", "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"SkyBr", "[", 
      RowBox[{"\[Lambda]", ",", "AM"}], "]"}], 
     RowBox[{"Sqrt", "[", 
      RowBox[{"1", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"300000", " ", 
            RowBox[{"DAp", "/", "Res1"}]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"2.355", " ", "VSig"}], ")"}]}], ")"}], "^", "2"}]}], 
      "]"}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.559232078546875*^9, 3.559232116265625*^9}, 
   3.559964311640625*^9, {3.56000758303125*^9, 3.56000759025*^9}, {
   3.56000796128125*^9, 3.5600079731875*^9}, {3.56015764528125*^9, 
   3.560157646765625*^9}, {3.5601581085*^9, 3.56015810959375*^9}, {
   3.56068396371875*^9, 3.5606839654375*^9}, {3.56068421521875*^9, 
   3.560684220046875*^9}, {3.560684590515625*^9, 3.560684595125*^9}, {
   3.560757900703125*^9, 3.5607579016875*^9}, {3.56385964728125*^9, 
   3.563859666375*^9}, {3.56507226846875*^9, 3.5650722898125*^9}, 
   3.565075385828125*^9, {3.565086248234375*^9, 3.56508624825*^9}, 
   3.56518521346875*^9, {3.565185410125*^9, 3.56518552765625*^9}, {
   3.566805706890625*^9, 3.56680571959375*^9}, {3.56680579521875*^9, 
   3.566805815*^9}, {3.566805850859375*^9, 3.566805868375*^9}, {
   3.56680598334375*^9, 3.566805992140625*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"survey", " ", "speed", " ", "including", " ", "extinction"}], ",",
    " ", 
   RowBox[{"sky", " ", "noise"}], ",", " ", 
   RowBox[{"spectral", " ", "resolution", " ", "effects"}]}], " ", 
  "*)"}]], "Input",
 CellChangeTimes->{{3.565186488703125*^9, 3.56518654265625*^9}, {
  3.566805883265625*^9, 3.566805895375*^9}, {3.567084085171875*^9, 
  3.56708408721875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"SSpeedAll", "[", 
    RowBox[{"850", ",", "850", ",", "FWHMCT", ",", "AM", ",", "10", ",", 
     RowBox[{"RMSSpot7", "[", "850", "]"}], ",", "FWHMfixDS", ",", "DefocMH", 
     ",", "PlateScDESP", ",", "1.8", ",", "Relg", ",", "0", ",", "6000", ",", 
     "80"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"AM", ",", "1.0", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "10"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"\"\<Air Mass\>\"", ",", "\"\<Speed\>\""}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "survey", " ", "speed", " ", "vs", " ", "air", " ", "mass", " ", "for", 
    " ", "elgs"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.566815923078125*^9, 3.56681594903125*^9}, {
  3.56681599521875*^9, 3.566815995390625*^9}, {3.56708410384375*^9, 
  3.567084131765625*^9}}],

Cell[GraphicsData["Metafile", "\<\
CF5dJ6E]HGAYHf4PEfU^I6mgLb15CDHPAVmbKF5d0@0005VD0@0006`000120000jSX00:T1002a>`00
:0D004RJ10188@00Q:T40215CDH00040U5T0080300030000000000000000000000D0020300000@00
X0000000000000000000003X0`00L@804@0000`0000800002@000100001X0@00``0000/0000@0000
J0400<<0000U000030000000081<0000I0000480003Z>P00Z@400:`k00120000jSX006P100330000
8@3`0000000000000020?`00000000000020?`000000000000000000000000000000000000000000
9@0000`000000020B`000400000`00001@000200000100000@00010000120000jSX00:X1002]>`00
@P000>Xj002Z0@00[C/004H0003X1000f`@005ETU5Sd0@00f`@00<P40013IFa/Fd9_N4AQM65K2R17
LV5`J6USLd9_N5]kNgd/87]m;20:820PNdQeIE/`;SHg;20`;SH/830^=Ud/85AXJF=[KVEcLe]<HG9W
IEd/80XP820PC6U^ID9_N5]kNc4^<30`<30`<C4a<C4a<C4a<V0/830^<C0e>CTb<C4f=CLi=cTb=SQP
OB`PNc4^<C0f>3Hg<CDe=3<`=CDd=F0/830^<3T`>3Lh=CPh=C<f<c8`<CAm;21k2R0P820P<Bhb<S8g
<S<b=cLd=SDb=cD/830^<3Lg=cLg<C4g<SHh<c4i=3Am;21k<Bhc<c0i<34h<C0e=3Pf<3HaH2`P<2h`
=SLh=C<b=3Td=STa=34b=gd/87/:820P820a;S@c=STe>3<a<38c=S4`<c9P;20`;S0e>CLg>C0d=S@`
=S4h<STd=61m;21k<Bhe=C8`<3<h>3Lf<cPh=cLeH2`P<2h`=C8d=SPc=c8h<c<a<C8a=CEPOB`PN`XP
820P834^=SDi<cLa>3Lf<3T`<SHb=F0/830^<3@f=c8a=CPh<3Ta=34a=CQm;21k<Bhg=cDg<SPi=38b
=CHi<S@eH2`P<2h`=34d<c@f=c<e=C8g>C4i<gd/87/:820P820a;SPh>CTf<cTg=C0b=cLe<SIP;20`
;S0c=c0`>CD`<c<h<3Hb>3PbOB`PNc4^>CTf=C8a=34h>3@g<CTa<F0/830^<3<c<cPg<C0i<c@e=c4g
>CIm;21k2R0P820P<Bhi>CTi>CTh>3Ph>3Ph>3PhH2`P<2h`<c<b=cPi=3Lb<c<b<C8b=3APOGeMOGd/
2R0P@G=`IF=dDV5dJFl]?Ti3HF=XIE]7KfaTIFiBHGAYKehX;C4Y;20`;SHa>30c<cTh>3Ld>CPi=3QM
;0XP845hIG<]?UAbMFD/2R0P@GQULdaQHVE/;Cik2R0P8216Kg9]@VmhFb9L8T5YLR1=HG=cG28R;21D
LV5TJGAYKfiQK4I_LVeM;20:820P84I_LVe2KgQK8U`RDg1UIFAL8R8/85AbHFAYM6U_KV5/AVmbKEem
;0XP845hIG=?LVUWJFh]?W/a;R`P<2h`=7d/2R0P@GQULe=dNFaU;Ci4JG9UHgAYMVEK2R0P821DJ6US
JfiULg=KC65bIfEM;20a=2`P@Vm/I5d/2R0PD6a_M59QKVMU;CikNc4^;20bOB`PNc0^<3<c<SLh>C@g
<S<c<S4b<S@dH2`P<2ha<3Di>C8a<CHe=cTg>C8f>61mOB`:821@K6mdDV5^IfE3K6U`L6U^IbdnE79e
IB`:821@K6mdDV5^IfE@HFATJFiW;Cik2R0P821CHf5/IFAK<2h`<Ud/80XP820PDf=QK6ETFc0^<39M
OEeM;20RCgEdL7Ed8R`:84=UK6a3J65^IfEDJFeULbdnNg/c;SDf=SPa=CTd<SLa>3Le:Uhi;20c;SDf
=SPa=CTe=CDf<SDZGSUm;20c;SDf=SPa=CTi>C8c=3<g=BYN>Gd/2R19KF5WIE=YNVD]?W/c=S@/834i
=Gd/2R19KF5WIDeQLVMYKW<]?W]k<2`P<7d/87/`;20`OGd/2R19KF5WIE9UIfU_KRdnNg/`;20aOB`P
Nc0/835mOEd00000B`000400000`00001@000200000100000@000100001H00000C/006X1002Z>`00
F000004k001Z0@00ZS/004/000100000<00000D0000P00000@000040000@0000@P000>Xj002Z0@00
[C/00480003Z>P00ZP400:dk001;0000@0000300000500008000004000010000400005P00001>`00
JP400:Xk001H00000C/006X1002Z>`00B`000400000`00001@000200000100000@00010000120000
jSX00:X1002]>`00@P000>Xj002Z0@00[C/004/000100000<00000D0000P00000@000040000@0000
F000004k001Z0@00ZS/005P00001>`00JP400:Xk000Q000020000680000<00000@000140000<0000
0@0004/0000@0000000000D0000j0000300000<0000Q0000200001h0000H0000F000004k001Z0@00
ZS/002@0000T00000000?`00000000000000?`00000000000P0005l0000h00000@0003P000000000
>000000000008@4010000000000o?IT000000000000000009@0000`0000100009@0000`000050020
E`0004P0001H00000C/006T1002Y>`002`000;`02GKe04ef<@67MVX1/gJR0MMfgP7hMQL24WMD0RUg
T08mMlP2CGO90Tig9@0000`0000700209@0000`000000020900002@0000000100000000000000010
00000000000200008P0000`0003ooooo:00000`000010000>P0000`0000:00008P0000`0003ooooo
B`000400000`00001@000200000100000@00010000120000jSX00:X1002]>`00@P000>Xj002Z0@00
[C/0024000080000HP0000`0000100004@0000`000010000B`000100000000001@0003X0000<0000
0`0002@0000T00000000?`00000000000000?`00000000000P0005l0000h00000@0003P000000000
>000000000008P40100000000000000000000000000000009@0000`0000100009@0000`000050020
E`0002@0001G0000SS/006D0002O>`000P000;`0<7Nl02Ug9@0000`0000700209@0000`000000020
900002@00000001000000000000000100000000000020000:00000`000010000>P0000`0000:0000
>P0000`000030000900002@00000000o000000000000000o0000000000020000G`0003P000010000
>0000000000h00000000000R0@040000000000000000000000000000000U000030000040000U0000
300000D0081G0000900006D0002?>`00LP0009lk00020000e`0`MmL0;7LU0000300000L0080U0000
30000000080T00009000000004000000000000000400000000000080000X000030000040000j0000
300000X0000j0000300000<0000T00009000000003l000000000000003l0000000000080001O0000
>0000040000h0000000003P000000000028100@0000000000000000000000000000002D0000<0000
0@0002D0000<00001@00P5L0000T0000LP0008lk001o0000Wc/00080003a031gl@0/MbD0000<0000
1`00P2D0000<00000000P2@0000T00000000@000000000000000@000000000000P0002P0000<0000
0@0003X0000<00002P0003X0000<00000`0002@0000T00000000?`00000000000000?`0000000000
0P0005l0000h00000@0003P000000000>000000000008P4010000000000000000000000000000000
9@0000`0000100009@0000`000050020E`0002@0001o0000Sc/008`0002O>`000P0000/1<7L;0Bag
9@0000`0000700209@0000`000000020900002@00000001000000000000000100000000000020000
:00000`000010000>P0000`0000:0000>P0000`000030000900002@00000000o000000000000000o
0000000000020000G`0003P000010000>0000000000h00000000000R0@0400000000000000000000
00000000000U000030000040000U0000300000D0081G0000900008`0002>>`00V@0009lk00020000
9@4`MbD1:GLU0000300000L0080U000030000000080T000090000000040000000000000004000000
00000080000X000030000040000j0000300000X0000R000030000?oooom;0000@000030000050000
8000004000010000400008P0002I>`00W@000:dk00280000VC/009d0002]>`00DP00070100010000
4@0000H00000000000000;`200000001180105@0J@1]06D0L`0P04h0I@1g0200DP1_06d0H@1^0000
000000000000000000000000000000000000000000000000000008H000202b@0N04F0000003`dA<0
00000;P0TG`H3dD4_=8C0440TGah1aH0G@2AO2000000000080m515MULgAULVh0000007P15P1@@000
b@8200`000000000I7H0200000202b@00000000000000000000F000000282b@0P;gaM`0000000000
:00009080030dA<080m51;cI4`0PjI1lH02AO?oooomM095l003aM`005P000?5g;kgaMdP=5^DP0000
80m51=1;0@0500000=8C04Q0002lfA<08>V@O600TGcoooooG@2AO6Af00P00000I7H02000000U0000
30000040000H000030000000008F0000300001T0000B000030000040000K0000400008T0002X>`00
E000060000290000VS/009X0002Z>`000@000000X4400:110000000000030000C000000000000000
00000?ooooooooooE0000340;P0b00001`0000@0000700004P0000`000020000B`000400000`0000
1@000200000100000@00010000120000jSX00:X1002]>`00@P000>Xj002Z0@00[C/0024000080000
HP0000`0000100004@0000`000010000B`000100000000001@0003X0000<00000`0002@0000T0000
0000?`00000000000000?`00000000000P0005l0000h00000P0003P000000000>000000000008P40
100000000000000000000000000000009@0000`0000200009@0000`000050020E`0002@0002I0000
Sc/00:L0002O>`000P000401<7M00Bag9@0000`0000700209@0000`000000020900002@000000010
00000000000000100000000000020000:00000`000020000>P0000`0000:0000>P0000`000030000
900002@00000000o000000000000000o0000000000020000G`0003P000020000>0000000000h0000
0000000R0@040000000000000000000000000000000U000030000080000U0000300000D0081G0000
90000:H0002?>`00]00009lk00020000FP4`MeX1;7LU0000300000L0080U000030000000080T0000
9000000004000000000000000400000000000080000X000030000080000j0000300000X0000j0000
300000<0000T00009000000003l000000000000003l0000000000080001O0000>0000080000h0000
000003P000000000028100@0000000000000000000000000000002D0000<00000P0002D0000<0000
1@00P5L0000T0000/`0008lk00310000Wc/00080001d0C1gM04/MbD0000<00001`00P2D0000<0000
0000P2@0000T00000000@000000000000000@000000000000P0002P0000<00000P0003X0000<0000
2P0003X0000<00000`0002@0000T00000000?`00000000000000?`00000000000P0005l0000h0000
0P0003P000000000>000000000008P40100000000000000000000000000000009@0000`000020000
9@0000`000050020E`0002@000300000SS/00<h0002O>`000P0008h1<7N>0BUg9@0000`000070020
9@0000`000000020900002@00000001000000000000000100000000000020000:00000`000020000
>P0000`0000:00008P0000`0003oooooB`000400000`00001@000200000100000@000100002m0000
VC/00=40002]>`00_@0009Tk003A0000[C/002D0000<00000@0001P0000<000000000QH0000<0000
6@000180000<00000@0001/0000@0000_P000:Pk001D0000H0000;h0002J>`00c`000:Xk00010000
002P@@00X4400000000000<0001<00000000000000000000oooooooooomD0000<@0^03@000070000
100000L0000B000030000080001;0000@000030000050000800000400001000040000480003Z>P00
ZP400:dk00120000jSX00:X1002]>`008@0000P0001R000030000040000A000030000040001;0000
4000000000050000>P0000`000030000900002@00000000o000000000000000o0000000000020000
G`0003P000020000>0000000000h00000000000R0@040000000000000000000000000000000U0000
30000080000U0000300000D0081G000090000<h0002?>`00f`0009lk00020000Z@4`MjT1;7LU0000
300000L0080U000030000000080T00009000000004000000000000000400000000000080000X0000
30000080000j0000300000X0000j0000300000<0000T00009000000003l000000000000003l00000
00000080001O0000>0000080000h0000000003P000000000028100@0000000000000000000000000
000002D0000<00000P0002D0000<00001@00P5L0000T0000f`0008lk003X0000Wc/0008000330C1g
``4/MbD0000<00001`00P2D0000<00000000P2@0000T00000000@000000000000000@00000000000
0P0002P0000<00000P0003X0000<00002P0003X0000<00000`0002@0000T00000000?`0000000000
0000?`00000000000P0005l0000h00000P0003P000000000>000000000008P401000000000000000
00000000000000009@0000`0000200009@0000`000050020E`0002@0003X0000Sc/00?D0002O>`00
0P000=d1<7OM0Bag9@0000`0000700209@0000`000000020900002@0000000100000000000000010
0000000000020000:00000`000020000>P0000`0000:0000>P0000`000030000900002@00000000o
000000000000000o0000000000020000G`0003P000020000>0000000000h00000000000R0@040000
000000000000000000000000000U000030000080000U0000300000D0081G000090000?D0002>>`00
0P4009lk00020000m`4`MoL1:GLU0000300000L0080U000030000000080T00009000000004000000
000000000400000000000080000X000030000080000j0000300000X0000R000030000?oooom;0000
@000030000050000800000400001000040000?40002I>`001P400:dk003a0000VC/000H1002]>`00
9@0000`000010000600000`0000000025P0000`0000I00004P0000`0000100006`000100003b0000
Z3/005@0001P0000lP0009Xk00030@00ZS/0004000000:11002P@@00000000000`0004`000000000
00000000003ooooooooooe@0000a02h0=P0000L0000400001`000180000<00000P0004/000100000
<00000D0000P00000@000040000@0000@P000>Xj002Z0@00[C/00480003Z>P00ZP400:dk000Q0000
20000680000<00000@000140000<00000@0004/0000@0000000000D0000j0000300000<0000T0000
9000000003l000000000000003l0000000000080001O0000>0000080000h0000000003P000000000
028100@0000000000000000000000000000002D0000<00000P0002D0000<00001@00P5L0000T0000
0P4008lk000@0@00Wc/00080000B0S1g4P8/MbD0000<00001`00P2D0000<00000000P2@0000T0000
0000@000000000000000@000000000000P0002P0000<00000P0003X0000<00002P0003X0000<0000
0`0002@0000T00000000?`00000000000000?`00000000000P0005l0000h00000P0003P000000000
>000000000008P40100000000000000000000000000000009@0000`0000200009@0000`000050020
E`0002@0000?0@00Sc/001d1002O>`000P0002`2<7L/0Rag9@0000`0000700209@0000`000000020
900002@00000001000000000000000100000000000020000:00000`000020000>P0000`0000:0000
>P0000`000030000900002@00000000o000000000000000o0000000000020000G`0003P000020000
>0000000000h00000000000R0@040000000000000000000000000000000U000030000080000U0000
300000D0081G0000900001`1002?>`00:P4009lk00020000AP8`MdH2;7LU0000300000L0080U0000
30000000080T00009000000004000000000000000400000000000080000X000030000080000j0000
300000X0000j0000300000<0000T00009000000003l000000000000003l0000000000080001O0000
>0000080000h0000000003P000000000028100@0000000000000000000000000000002D0000<0000
0P0002D0000<00001@00P5L0000T0000:@4008hk000g0@00Wc/00080001P0S1gH08YMbD0000<0000
1`00P2D0000<00000000P2@0000T00000000@000000000000000@000000000000P0002P0000<0000
0P0003X0000<00002P000280000<0000oooood/000100000<00000D0000P00000@000040000@0000
9P4009Tk000j0@00[C/002H1002I>`00>P400:dk000U000030000040000H000030000000008F0000
300001T0000B000030000040000K0000400002L1002X>`00E0000600000W0@00VS/003P1002Z>`00
0@000000X4400:110000000000030000C00000000000000000000?ooooooooooE0000340;P0h0000
1`0000@0000700004P0000`000020000B`000400000`00001@000200000100000@00010000120000
jSX00:X1002]>`00@P000>Xj002Z0@00[C/0024000080000HP0000`0000100004@0000`000010000
B`000100000000001@0003X0000<00000`0002@0000T00000000?`00000000000000?`0000000000
0P0005l0000h00000P0003P000000000>000000000008P4010000000000000000000000000000000
9@0000`0000200009@0000`000050020E`0002@0000g0@00Sc/004@1002O>`000P0007/2<7Mk0Rag
9@0000`0000700209@0000`000000020900002@00000001000000000000000100000000000020000
:00000`000020000>P0000`0000:0000>P0000`000030000900002@00000000o000000000000000o
0000000000020000G`0003P000020000>0000000000h00000000000R0@0400000000000000000000
00000000000U000030000080000U0000300000D0081G0000900004@1002?>`00D@4009lk00020000
U@8`MiD2;7LU0000300000L0080U000030000000080T000090000000040000000000000004000000
00000080000X000030000080000j0000300000X0000j0000300000<0000T00009000000003l00000
0000000003l0000000000080001O0000>0000080000h0000000003P000000000028100@000000000
0000000000000000000002D0000<00000P0002D0000<00001@00P5L0000T0000D@4008lk001N0@00
Wc/00080002_0S1g[`8/MbD0000<00001`00P2D0000<00000000P2@0000T00000000@00000000000
0000@000000000000P0002P0000<00000P0003X0000<00002P0003X0000<00000`0002@0000T0000
0000?`00000000000000?`00000000000P0005l0000h00000P0003P000000000>000000000008P40
100000000000000000000000000000009@0000`0000200009@0000`000050020E`0002@0001N0@00
SS/006/1002O>`000P000<T2<7O90RUg9@0000`0000700209@0000`000000020900002@000000010
00000000000000100000000000020000:00000`000020000>P0000`0000:00008P0000`0003ooooo
B`000400000`00001@000200000100000@000100001J0@00VC/006l1002]>`00FP4009Tk001_0@00
[C/002D0000<00000@0001P0000<000000000QH0000<00006@000180000<00000@0001/0000@0000
F`400:Pk001D0000H00005/1002J>`00K0400:Xk00010000002P@@00X4400000000000<0001<0000
0000000000000000oooooooooomD0000<P0^030000070000100000L0000B000030000080001;0000
@000030000050000800000400001000040000480003Z>P00ZP400:dk00120000jSX00:X1002]>`00
8@0000P0001R000030000040000A000030000040001;00004000000000050000>P0000`000030000
900002@00000000o000000000000000o0000000000020000G`0003P000020000>0000000000h0000
0000000R0@040000000000000000000000000000000U000030000080000U0000300000D0081G0000
90000580002A>`00L@4009lk00020000/@0`Mm@2<7LU0000300000L0080U000030000000080T0000
9000000004000000000000000400000000000080000X000030000080000j0000300000X0000R0000
30000?oooom;0000@000030000050000800000400001000040000741002>>`00ZP400:8k001a0@00
SS/00:X1002R>`009@0000`000010000600000`0000000025P0000`0000I00004P0000`000010000
6`000100001b0@00WC/005@0001P0000LP4008lk00250@00Wc/0004000000:11002P@@0000000000
0`0004`00000000000000000003ooooooooooe@0001106T0LP0000X0000400001P000180000<0000
0P000180000<00000@0001/0000@0000RP4009dk001D0000I00008X1002?>`00Z04009lk00010000
002P@@00X4400000000000@0001<00000000000000000000oooooooooomD0000C@1Q07<0L`0<0000
1`0000H0000600004P0000`000020000B`000400000`00001@000200000100000@00010000120000
jSX00:X1002]>`00@P000>Xj002Z0@00[C/0024000080000HP0000`0000100004@0000`000010000
B`000100000000001@0003X0000<00000`0002@0000T00000000?`00000000000000?`0000000000
0P0005l0000h00000P0003P000000000>000000000008P4010000000000000000000000000000000
9@0000`0000200009@0000`000050020E`0002@0001G0000Xc/006L0002`>`000P000;`0DgO005=g
9@0000`0000700209@0000`000000020900002@00000001000000000000000100000000000020000
:00000`000020000>P0000`0000:0000>P0000`000030000900002@00000000o000000000000000o
0000000000020000G`0003P000020000>0000000000h00000000000R0@0400000000000000000000
00000000000U000030000080000U0000300000D0081G0000900005L0002N>`00I`000:`k00020000
_01:Ml00BWLU0000300000L0080U000030000000080T000090000000040000000000000004000000
00000080000X000030000080000j0000300000X0000j0000300000<0000T00009000000003l00000
0000000003l0000000000080001O0000>0000080000h0000000003P000000000028100@000000000
0000000000000000000002D0000<00000P0002D0000<00001@00P5L0000T0000E`0009Xk001W0000
Z3/00080002l049g`012MbD0000<00001`00P2D0000<00000000P2@0000T00000000@00000000000
0000@000000000000P0002P0000<00000P0003X0000<00002P0003X0000<00000`0002@0000T0000
0000?`00000000000000?`00000000000P0005l0000h00000P0003P000000000>000000000008P40
100000000000000000000000000000009@0000`0000200009@0000`000050020E`0002@0001G0000
US/006L0002S>`000P000;`0>GO003Ug9@0000`0000700209@0000`000000020900002@000000010
00000000000000100000000000020000:00000`000020000>P0000`0000:0000>P0000`000030000
900002@00000000o000000000000000o0000000000020000G`0003P000020000>0000000000h0000
0000000R0@040000000000000000000000000000000U000030000080000U0000300000D0081G0000
900005L0002A>`00J00009lk00020000_00`Ml<0<7LU0000300000L0080U000030000000080T0000
9000000004000000000000000400000000000080000X000030000080000j0000300000X0000j0000
300000<0000T00009000000003l000000000000003l0000000000080001O0000>0000080000h0000
000003P000000000028100@0000000000000000000000000000002D0000<00000P0002D0000<0000
1@00P5L0000T0000E`0008dk001W0000VS/00080002l02Mg`00WMbD0000<00001`00P2D0000<0000
0000P2@0000T00000000@000000000000000@000000000000P0002P0000<00000P0003X0000<0000
2P0003X0000<00000`0002@0000T00000000?`00000000000000?`00000000000P0005l0000h0000
0P0003P000000000>000000000008P40100000000000000000000000000000009@0000`000020000
9@0000`000050020E`0002@0001G0000R3/006L0002F>`000P000;`07WO001ig9@0000`000070020
9@0000`000000020900002@00000001000000000000000100000000000020000:00000`000020000
>P0000`0000:0000>P0000`000030000900002@00000000o000000000000000o0000000000020000
G`0003P000020000>0000000000h00000000000R0@040000000000000000000000000000000U0000
30000080000U0000300000D0081G0000900005L00024>`00I`00094k00020000_00EMl005GLU0000
300000L0080U000030000000080T00009000000004000000000000000400000000000080000X0000
30000080000j0000300000X0000j0000300000<0000T00009000000003l000000000000003l00000
00000080001O0000>0000080000h0000000003P000000000028100@0000000000000000000000000
000002D0000<00000P0002D0000<00001@00P5L0000T0000E`0007lk001W0000SC/00080002l00ag
`00<MbD0000<00001`00P2D0000<00000000P2@0000T00000000@000000000000000@00000000000
0P0002P0000<00000P0003X0000<00002P0003X0000<00000`0002@0000T00000000?`0000000000
0000?`00000000000P0005l0000h00000P0003P000000000>000000000008P401000000000000000
00000000000000009@0000`0000200009@0000`000050020E`0002@0001G0000Nc/006P00028>`00
0P000;`00gO300=g9@0000`0000700209@0000`000000020900002@0000000100000000000000010
0000000000020000:00000`000020000>P0000`0000:00008P0000`0003oooooB`000400000`0000
1@000200000100000@00010000120000Mc/005`0002;>`00@P0007Lk001L0000Rc/002D0000<0000
0@0001P0000<000000000QH0000<00006@000180000<00000@0001/0000@0000@P0008Hk001D0000
I0000480001h>`00FP0008Pk00010000002P@@00X4400000000000@0001<00000000000000000000
oooooooooomD0000<00^0300=@070000100000L0000700004P0000`000020000B`000400000`0000
1@000200000100000@00010000120000jSX00:X1002]>`00@P000>Xj002Z0@00[C/0024000080000
HP0000`0000100004@0000`000010000B`000100000000001@0003X0000<00000`0002@0000T0000
0000?`00000000000000?`00000000000P0005l0000h00000P0003P000000000>000000000008P40
100000000000000000000000000000009@0000`0000200009@0000`000050020E`0002@0001G0000
MS/006L00024>`000P000;`0nWK00?Yf9@0000`0000700209@0000`000000020900002@000000010
00000000000000100000000000020000:00000`000020000>P0000`0000:0000>P0000`000030000
900002@00000000o000000000000000o0000000000020000G`0003P000020000>0000000000h0000
0000000R0@040000000000000000000000000000000U000030000080000U0000300000D0081G0000
900005L0001b>`00I`0007lk00020000_03aM/00lGHU0000300000L0080U000030000000080T0000
9000000004000000000000000400000000000080000X000030000080000j0000300000X0000j0000
300000<0000T00009000000003l000000000000003l0000000000080001O0000>0000080000h0000
000003P000000000028100@0000000000000000000000000000002D0000<00000P0002D0000<0000
1@00P5L0000T0000E`0006dk001W0000Nc/00080002l0>Qf`03XMRD0000<00001`00P2D0000<0000
0000P2@0000T00000000@000000000000000@000000000000P0002P0000<00000P0003X0000<0000
2P0003X0000<00000`0002@0000T00000000?`00000000000000?`00000000000P0005l0000h0000
0P0003P000000000>000000000008P40100000000000000000000000000000009@0000`000020000
9@0000`000050020E`0002@0001G0000JC/006L0001f>`000P000;`0ggK00=mf9@0000`000070020
9@0000`000000020900002@00000001000000000000000100000000000020000:00000`000020000
>P0000`0000:0000>P0000`000030000900002@00000000o000000000000000o0000000000020000
G`0003P000020000>0000000000h00000000000R0@040000000000000000000000000000000U0000
30000080000U0000300000D0081G0000900005L0001T>`00J000078k00020000_03FM/<0eWHU0000
300000L0080U000030000000080T00009000000004000000000000000400000000000080000X0000
30000080000j0000300000X0000R000030000?oooom;0000@0000300000500008000004000010000
40000480001Q>`00G00007Dk00120000HC/005`0001e>`009@0000`000010000600000`000000002
5P0000`0000I00004P0000`0000100006`00010000120000L3/005@0001T0000@P00068k001J0000
LS/0004000000:11002P@@0000000000100004`00000000000000000003ooooooooooe@0000`02h0
<00f00L0000400001`0000L0000B000030000080001;0000@0000300000500008000004000010000
40000480003Z>P00ZP400:dk00120000jSX00:X1002]>`008@0000P0001R000030000040000A0000
30000040001;00004000000000050000>P0000`000030000900002@00000000o000000000000000o
0000000000020000G`0003P000020000>0000000000h00000000000R0@0400000000000000000000
00000000000U000030000080000U0000300000D0081G0000900005L0001P>`00I`0006hk00020000
_03>M/00cWHU0000300000L0080U000030000000080T000090000000040000000000000004000000
00000080000X000030000080000j0000300000X0000j0000300000<0000T00009000000003l00000
0000000003l0000000000080001O0000>0000080000h0000000003P000000000028100@000000000
0000000000000000000002D0000<00000P0002D0000<00001@00P5L0000T0000E`0005`k001W0000
JC/00080002l0<Ef`035MRD0000<00001`00P2D0000<00000000P2@0000T00000000@00000000000
0000@000000000000P0002P0000<00000P0003X0000<00002P0003X0000<00000`0002@0000T0000
0000?`00000000000000?`00000000000P0005l0000h00000P0003P000000000>000000000008P40
100000000000000000000000000000009@0000`0000200009@0000`000050020E`0002@0001G0000
Ec/006L0001U>`000P000;`0_7K00;af9@0000`0000700209@0000`000000020900002@000000010
00000000000000100000000000020000:00000`000020000>P0000`0000:0000>P0000`000030000
900002@00000000o000000000000000o0000000000020000G`0003P000020000>0000000000h0000
0000000R0@040000000000000000000000000000000U000030000080000U0000300000D0081G0000
900005L0001C>`00I`00060k00020000_02cM/00/gHU0000300000L0080U000030000000080T0000
9000000004000000000000000400000000000080000X000030000080000j0000300000X0000j0000
300000<0000T00009000000003l000000000000003l0000000000080001O0000>0000080000h0000
000003P000000000028100@0000000000000000000000000000002D0000<00000P0002D0000<0000
1@00P5L0000T0000E`0004hk001X0000G3/00080002l0:Yf``2ZMRD0000<00001`00P2D0000<0000
0000P2@0000T00000000@000000000000000@000000000000P0002P0000<00000P0003X0000<0000
2P000280000<0000oooood/000100000<00000D0000P00000@000040000@0000@P0004/k001L0000
Gc/00480001;>`00G00005lk000U000030000040000H000030000000008F0000300001T0000B0000
30000040000K000040000480001J>`00E00006@000120000C3/005X0001L>`000@000000X4400:11
0000000000040000C00000000000000000000?ooooooooooE0000300;P0`03L01`0000@000070000
1`000180000<00000P0004/000100000<00000D0000P00000@000040000@0000@P000>Xj002Z0@00
[C/00480003Z>P00ZP400:dk000Q000020000680000<00000@000140000<00000@0004/0000@0000
000000D0000j0000300000<0000T00009000000003l000000000000003l0000000000080001O0000
>0000080000h0000000003P000000000028100@0000000000000000000000000000002D0000<0000
0P0002D0000<00001@00P5L0000T0000E`0004Xk001W0000Ec/00080002l0:5f`02QMRD0000<0000
1`00P2D0000<00000000P2@0000T00000000@000000000000000@000000000000P0002P0000<0000
0P0003X0000<00002P0003X0000<00000`0002@0000T00000000?`00000000000000?`0000000000
0P0005l0000h00000P0003P000000000>000000000008P4010000000000000000000000000000000
9@0000`0000200009@0000`000050020E`0002@0001G0000AC/006L0001C>`000P000;`0V7K009Qf
9@0000`0000700209@0000`000000020900002@00000001000000000000000100000000000020000
:00000`000020000>P0000`0000:0000>P0000`000030000900002@00000000o000000000000000o
0000000000020000G`0003P000020000>0000000000h00000000000R0@0400000000000000000000
00000000000U000030000080000U0000300000D0081G0000900005L00011>`00I`0004hk00020000
_02?M/00SgHU0000300000L0080U000030000000080T000090000000040000000000000004000000
00000080000X000030000080000j0000300000X0000j0000300000<0000T00009000000003l00000
0000000003l0000000000080001O0000>0000080000h0000000003P000000000028100@000000000
0000000000000000000002D0000<00000P0002D0000<00001@00P5L0000T0000E`0003`k001W0000
BS/00080002l08If`026MRD0000<00001`00P2D0000<00000000P2@0000T00000000@00000000000
0000@000000000000P0002P0000<00000P0003X0000<00002P0003X0000<00000`0002@0000T0000
0000?`00000000000000?`00000000000P0005l0000h00000P0003P000000000>000000000008P40
100000000000000000000000000000009@0000`0000200009@0000`000050020E`0002@0001G0000
>3/006P00015>`000P000;`0OGK307ef9@0000`0000700209@0000`000000020900002@000000010
00000000000000100000000000020000:00000`000020000>P0000`0000:00008P0000`0003ooooo
B`000400000`00001@000200000100000@00010000120000=3/005`00018>`00@P0003@k001L0000
B3/002D0000<00000@0001P0000<000000000QH0000<00006@000180000<00000@0001/0000@0000
@P0004<k001D0000I0000480000e>`00FP0004Dk00010000002P@@00X4400000000000@0001<0000
0000000000000000oooooooooomD0000<00^0300>0070000100000L0000700004P0000`000020000
B`000400000`00001@000200000100000@00010000120000jSX00:X1002]>`00@P000>Xj002Z0@00
[C/0024000080000HP0000`0000100004@0000`000010000B`000100000000001@0003X0000<0000
0`0002@0000T00000000?`00000000000000?`00000000000P0005l0000h00000P0003P000000000
>000000000008P40100000000000000000000000000000009@0000`0000200009@0000`000050020
E`0002@0001G0000<c/006L00011>`000P000;`0M7K007Af9@0000`0000700209@0000`000000020
900002@00000001000000000000000100000000000020000:00000`000020000>P0000`0000:0000
>P0000`000030000900002@00000000o000000000000000o0000000000020000G`0003P000020000
>0000000000h00000000000R0@040000000000000000000000000000000U000030000080000U0000
300000D0081G0000900005L0000_>`00I`0003`k00020000_01[M/00JgHU0000300000L0080U0000
30000000080T00009000000004000000000000000400000000000080000X000030000080000j0000
300000X0000j0000300000<0000T00009000000003l000000000000003l0000000000080001O0000
>0000080000h0000000003P000000000028100@0000000000000000000000000000002D0000<0000
0P0002D0000<00001@00P5L0000T0000E`0002Xk001W0000>3/00080002l069f`01RMRD0000<0000
1`00P2D0000<00000000P2@0000T00000000@000000000000000@000000000000P0002P0000<0000
0P0003X0000<00002P0003X0000<00000`0002@0000T00000000?`00000000000000?`0000000000
0P0005l0000h00000P0003P000000000>000000000008P4010000000000000000000000000000000
9@0000`0000200009@0000`000050020E`0002@0001G00009S/006L0000c>`000P000;`0FGK005Uf
9@0000`0000700209@0000`000000020900002@00000001000000000000000100000000000020000
:00000`000020000>P0000`0000:0000>P0000`000030000900002@00000000o000000000000000o
0000000000020000G`0003P000020000>0000000000h00000000000R0@0400000000000000000000
00000000000U000030000080000U0000300000D0081G0000900005L0000R>`00J00002lk00020000
_01AM/<0DGHU0000300000L0080U000030000000080T000090000000040000000000000004000000
00000080000X000030000080000j0000300000X0000R000030000?oooom;0000@000030000050000
800000400001000040000480000N>`00G000038k001200007S/005`0000b>`009@0000`000010000
600000`0000000025P0000`0000I00004P0000`0000100006`00010000120000;C/005@0001T0000
@P0001lk001J0000;c/0004000000:11002P@@0000000000100004`00000000000000000003ooooo
oooooe@0000`02h0<00i00L0000400001`0000L0000B000030000080001;0000@000030000050000
800000400001000040000480003Z>P00ZP400:dk00120000jSX00:X1002]>`008@0000P0001R0000
30000040000A000030000040001;00004000000000050000>P0000`000030000900002@00000000o
000000000000000o0000000000020000G`0003P000020000>0000000000h00000000000R0@040000
000000000000000000000000000U000030000080000U0000300000D0081G0000900005L0000M>`00
I`0002/k00020000_018M/00B7HU0000300000L0080U000030000000080T00009000000004000000
000000000400000000000080000X000030000080000j0000300000X0000j0000300000<0000T0000
9000000003l000000000000003l0000000000080001O0000>0000080000h0000000003P000000000
028100@0000000000000000000000000000002D0000<00000P0002D0000<00001@00P5L0000T0000
E`0001Tk001W00009S/00080002l03mf`00oMRD0000<00001`00P2D0000<00000000P2@0000T0000
0000@000000000000000@000000000000P0002P0000<00000P0003X0000<00002P0003X0000<0000
0`0002@0000T00000000?`00000000000000?`00000000000P0005l0000h00000P0003P000000000
>000000000008P40100000000000000000000000000000009@0000`0000200009@0000`000050020
E`0002@0001G000053/006L0000R>`000P000;`0=WK003If9@0000`0000700209@0000`000000020
900002@00000001000000000000000100000000000020000:00000`000020000>P0000`0000:0000
>P0000`000030000900002@00000000o000000000000000o0000000000020000G`0003P000020000
>0000000000h00000000000R0@040000000000000000000000000000000U000030000080000U0000
300000D0081G0000900005L0000@>`00I`0001dk00020000_00]M/00;GHU0000300000L0080U0000
30000000080T00009000000004000000000000000400000000000080000X000030000080000j0000
300000X0000j0000300000<0000T00009000000003l000000000000003l0000000000080001O0000
>0000080000h0000000003P000000000028100@0000000000000000000000000000002D0000<0000
0P0002D0000<00001@00P5L0000T0000E`0000/k001X00006C/00080002l02Af``0TMRD0000<0000
1`00P2D0000<00000000P2@0000T00000000@000000000000000@000000000000P0002P0000<0000
0P0003X0000<00002P000280000<0000oooood/000100000<00000D0000P00000@000040000@0000
@P0000Pk001L000073/004800008>`00G00001`k000U000030000040000H000030000000008F0000
300001T0000B000030000040000K000040000480000G>`00E00006@0001200002C/005X0000I>`00
0@000000X4400:110000000000040000C00000000000000000000?ooooooooooE0000300;P0a0300
1`0000@0000700001`000180000<00000P0004/000100000<00000D0000P00000@000040000@0000
@P000>Xj002Z0@00[C/00480003Z>P00ZP400:dk000Q000020000680000<00000@000140000<0000
0@0004/0000@0000000000D0000j0000300000<0000T00009000000003l000000000000003l00000
00000080001O0000>0000080000h0000000003P000000000028100@0000000000000000000000000
000002D0000<00000P0002D0000<00001@00P5L0000T0000E`0000Lk001W000053/00080002l01]f
`00KMRD0000<00001`00P2D0000<00000000P2@0000T00000000@000000000000000@00000000000
0P0002P0000<00000P0003X0000<00002P0003X0000<00000`0002@0000T00000000?`0000000000
0000?`00000000000P0005l0000h00000P0003P000000000>000000000008P401000000000000000
00000000000000009@0000`0000200009@0000`000050020E`0002@0001G00000S/006L0000@>`00
0P000;`04WK0019f9@0000`0000700209@0000`000000020900002@0000000100000000000000010
0000000000020000:00000`000020000>P0000`0000:0000>P0000`000030000900002@00000000o
000000000000000o0000000000020000G`0003P000020000>0000000000h00000000000R0@040000
000000000000000000000000000U000030000080000U0000300000D0081G0000900005L0003n>P00
I`0000/k00020000_009M/002GHU0000300000L0080U000030000000080T00009000000004000000
000000000400000000000080000X000030000080000j0000300000X0000j0000300000<0000T0000
9000000003l000000000000003l0000000000080001O0000>0000080000h0000000003P000000000
028100@0000000000000000000000000000002D0000<00000P0002D0000<00001@00P5L0000T0000
E`000?Xj001U0000/C/00080002l05Ag_002MRD0000<00001`00P2D0000<00000000P2@0000T0000
0000@000000000000000@000000000000P0002P0000<00000P0003X0000<00002P000280000<0000
oooood/000100000<00000D0000P00000@000040000@0000B`000>Xj001a0000o3X004/0003Z>P00
L@000?`j000U000030000040000H000030000000008F0000300001T0000B000030000040000K0000
400004`0003h>P00E00006`0001<0000jSX006l0003j>P000@000000X4400:110000000000050000
C00000000000000000000?ooooooooooF00005<0L01U06D0I00000P0000700001`0000L000070000
4P0000`000020000B`000400000`00001@000200000100000@00010000120000jSX00:X1002]>`00
@P000>Xj002Z0@00[C/004/000100000<00000D0000P00000@000040000@0000F000004k001Z0@00
ZS/005P00001>`00JP400:Xk001;0000@000030000050000800000400001000040000480003Z>P00
ZP400:dk00120000jSX00:X1002]>`00B`000400000`00001@000200000100000@0001000001P?oo
0H3ooomo003oO`000H3oo`60ooooO`00ogl000h0000D000000000100000D0000
\>"], "Output",
 Evaluatable->False,
 CellChangeTimes->{{3.56681594271875*^9, 3.5668159555625*^9}, 
   3.566815999234375*^9},
 ImageSize->{364, 195},
 ImageMargins->{{1, 0}, {0, 1}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"SSpeedAll", "[", 
    RowBox[{"350", ",", "400", ",", "FWHMCT", ",", "AM", ",", "10", ",", 
     RowBox[{"RMSSpot7", "[", "350", "]"}], ",", "FWHMfixDS", ",", "DefocMH", 
     ",", "PlateScDESP", ",", "1.8", ",", "Relg", ",", "0", ",", "7500", ",", 
     "20"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"AM", ",", "1.0", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"\"\<Air Mass\>\"", ",", "\"\<Speed\>\""}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "survey", " ", "speed", " ", "vs", " ", "air", " ", "mass", " ", "for", 
    " ", "qsos", " ", "at", " ", "350", "nm", " ", "but", " ", "centred", " ",
     "at", " ", "400"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.566815923078125*^9, 3.56681594903125*^9}, {
  3.56681599521875*^9, 3.566815995390625*^9}, {3.566816094609375*^9, 
  3.5668161350625*^9}, {3.567084141*^9, 3.5670841595625*^9}, {
  3.567084513078125*^9, 3.567084515921875*^9}}],

Cell[GraphicsData["Metafile", "\<\
CF5dJ6E]HGAYHf4PEfU^I6mgLb15CDHPAVmbKF5d0@0004?00@0006`0001200001C`00:T1003A?000
:0D006B`10188@00J<040215CDH00040`4<007L200030000000000000000000000D0020300000@00
X0000000000000000000003X0`00L@804@0000`0000800002@000100001X0@00c@0000/0000@0000
J0400<d0000U000030000000081<0000I00004800005?000Z@400=4l001200001C`006P1003=0000
8@3`0000000000000020?`00000000000020?`000000000000000000000000000000000000000000
9@0000`000000020B`000400000`00001@000200000100000@000100001200001C`00:X1003B?000
@P0000Dl002Z0@00dS`004H0002T1P00U@H005ETU5Sd0@00U@H008860013IFa/Fd9_N4AQM65K2R17
LV5`J6USLd9_N5]kNgd/87]m;20:820PNdQeIE/`;SHg;20`;SH/830^=Ud/85AXJF=[KVEcLe]<HG9W
IEd/80XP820PC6U^ID9_N5]kNc4^<30`<30`<3Db=S<a=CLh>F0/830^<34f>CTi=c8i<STh>CDd=S8g
H7d/87/a;S0e<3Hb<C8h=34e<C<a=C9P;20:820P820`;S0a=3Lb=c8d<3P`=c0i>CDe=V1m;21k<Bha
<3De<30d>CTh=C4i=c8bH2`P<2h`<C8f<S4i<3Tg<3Ta=C<c>3APOB`PNc4^<CDf=c@b>CHb>3Ta=3@d
=f0/80XP820P830^<34`>C@a<S8b>C@h<3Df>CTaH7d/87/a;S8`=STh<38e<S8a=c4`<C5P;20`;S0`
>CDb<CPd>CLa=C@g=c<i<gd/87/a;S8f<C@g=CDb=CLb<cHg>3=P;20:820P820`;S0`>34i=cDh=c8i
=S0d=C0f<gd/87/a;S<a<S<c=30d=SDf>C0g<B`P<2h`<3La<c@g=c@a=c@d<c@i=cEm;21k<Bhc=SLd
=C0e=C4e>CDc>3@eH2`P2R0P820P<2h`<3Ha=3<a=C4h=CPa=S<e<C9m;21k<Bhd<S4e=S4h>38i<3Lh
>38/830^<30e<c0h<CTc=CDd<3<f<c8aOB`PNc4^=3Lb<3<f=3Ha=CDi<CTe;20:820P820`;S0`=3Hc
=3Le=SHh<3Pg<SL`=7d/87/a;SDb=SLf>C0b=3<i<C@b>3MP;20`;S0`=30`<cPf=C4d=S4a<38b=Gd/
87/a;SDg=cPf=3Pc=3Df<S@g>2`P2R0P820P<2h`<3<d>C@f=30i=c<h=CTg<SMm;21k<Bhf<SLi=CDd
=c4`<CTg<C4/830^<30c<3Di>CPh=3@b>30a=3<g=F1m;21k<Bhf>38c<3@`>C4f=CLh=SD/80XP820P
830^<30b=SDa<30d>3<b<cTa=3TeOB`PNc4^=c<c<34e>CDi=S<d>3<d=f0/830^<30b<c4h<SHg=3Hh
=3Th<S0iOB`PNc4^=cPg>CPe>34a=cTb=c8e;20:820P820`;S0`<S0e=3Di<cTf=C4e<SPf>Gd/87/a
;SPd<CTe<3@i<38c=SLi>C5P;20`;S0`<CLd<cHb<cLa=S8`>30c<cIPOB`PNc4^>3Tb<SLh=34f<34i
=SPh>60/80XP820P830^<30a=C8i=c<i>3Ph=3Hi<34a=F1m;21k<Bhi=3Hh=S@c<SDi>3<d>CTbH2`P
<2h`<34c<SP`<3Dd<S8e<38b<S8bH7d/87/a;STi=cPa<c@h<c8h=S4b=C9P;20:820P820`;S0`<C4f
=3<e<cHg>38i=34`=gd/87/a;STi>CTi>CTd=c<f>3@b<C5P;20`;S0`<C4e=cPa<STd=CT`=CHfOGeM
OGd/2R0P@G=`IF=dDV5dJFl]?Ti3HF=XIE]7KfaTIFiBHGAYKehX;C4Y;20`;SHa>30c<cTh>3Ld>CPi
=3QM;0XP845hIG<]?UAbMFD/2R0P@GQULdaQHVE/;Cik2R0P8216Kg9]@VmhFb9L8T5YLR1=HG=cG28R
;21DLV5TJGAYKfiQK4I_LVeM;20:820P84I_LVe2KgQK8U`RDg1UIFAL8R8/85AbHFAYM6U_KV5/AVmb
KEem;0XP845hIG=?LVUWJFh]?W/a;R`P<7d/2R0P@GQULe=dNFaU;Ci4JG9UHgAYMVEK2R0P821DJ6US
JfiULg=KC65bIfEM;20a=2`P@Vm/I5d/2R0PD6a_M59QKVMU;CikNc4^;20bOB`PNc0^;20`;S0a=STi
>CLb>C8i>3Te=3Hb=f1mOB`:821@K6mdDV5^IfE3K6U`L6U^IbdnE79eIB`:821@K6mdDV5^IfE@HFAT
JFiW;Cik2R0P821CHf5/IFAK<2h`<Ud/80XP820PDf=QK6ETFc0^<39MOEeM;20RCgEdL7Ed8R`:84=U
K6a3J65^IfEDJFeULbdnNg/c;SDf=SPa=S4b<S4e=S8e:Uhi;20c;SDf=SPa=S4d<CH`>C<g=BYN>Gem
;0XPBFeQIfECJGYU;Cik<cHd;20b<3Em;0XPBFeQIfE=HG9WJFic;CikNc0/831m;21k<2`P<7em;0XP
BFeQIfEBIFMYKfh]?W]k<2`P<Gd/87/`;20aOGeM00000000B`000400000`00001@00020000010000
0@000100001O000073`006X10031?000G`0001`l001Z0@00`C`004/000100000<00000D0000P0000
0@000040000@0000@P0000Dl002Z0@00dS`004800005?000ZP400=8l001;0000@000030000050000
8000004000010000400005l0000L?000JP400<4l001O000073`006X10031?000B`000400000`0000
1@000200000100000@000100001200001C`00:X1003B?000@P0000Dl002Z0@00dS`004/000100000
<00000D0000P00000@000040000@0000G`0001`l001Z0@00`C`005l0000L?000JP400<4l000Q0000
20000680000<00000@000140000<00000@0004/0000@0000000000D0000j0000300000<0000T0000
9000000003l000000000000003l0000000000080001O0000>0000040000h0000000003P000000000
024100@000000000?cfI000000000000000002D0000<00000@0002D0000<00001@00P5L0001`0000
F`0001Dl001_0@00_C`001D0003:03mhi01YN001T7PK0K1h=07:N501hgQZ0OIhQP49NJ8167Vl0BEi
f04aNO81>WT<0T9i9`9:ND42D7UM0UEiN@9KNI<2GgV_0V9ib@9UNLX2IWTU0000300000L0080U0000
30000000080T00009000000004000000000000000400000000000080000X000030000040000j0000
300000X0000R000030000?oooom;0000@0000300000500008000004000010000400004800005?000
ZP400=8l001200001C`00:X1003B?0008@0000P0001R000030000040000A000030000040001;0000
4000000000050000>P0000`000030000900002@00000000o000000000000000o0000000000020000
G`0003P000010000>0000000000h00000000000R0@040000000000000000000000000000000U0000
30000040000U0000300000D0081G0000900005h0002d?000K0000<@l00020000bP1kNLX0MGTU0000
300000L0080U000030000000080T00009000000004000000000000000400000000000080000X0000
30000040000j0000300000X0000j0000300000<0000T00009000000003l000000000000003l00000
00000080001O0000>0000040000h0000000003P000000000028100@0000000000000000000000000
000002D0000<00000@0002D0000<00001@00P5L0000T0000J`000;Dl001i0000a3`00080003T07]i
i01gNBD0000<00001`00P2D0000<00000000P2@0000T00000000@000000000000000@00000000000
0P0002P0000<00000@0003X0000<00002P0003X0000<00000`0002@0000T00000000?`0000000000
0000?`00000000000P0005l0000h00000@0003P000000000>000000000008P401000000000000000
00000000000000009@0000`0000100009@0000`000050020E`0002@0001h0000]C`008H00034?000
0P000?h0NgWn07Mi9@0000`0000700209@0000`000000020900002@0000000100000000000000010
0000000000020000:00000`000010000>P0000`0000:0000>P0000`000030000900002@00000000o
000000000000000o0000000000020000G`0003P000010000>0000000000h00000000000R0@040000
000000000000000000000000000U000030000040000U0000300000D0081G0000900008D0002e?000
TP000<@l000200005`5kNAL1MgTU0000300000L0080U000030000000080T00009000000004000000
000000000400000000000080000X000030000040000j0000300000X0000j0000300000<0000T0000
9000000003l000000000000003l0000000000080001O0000>0000040000h0000000003P000000000
028100@0000000000000000000000000000002D0000<00000@0002D0000<00001@00P5L0000T0000
TP000;@l002O0000a3`00080000a0G]i<@5eNBD0000<00001`00P2D0000<00000000P2@0000T0000
0000@000000000000000@000000000000P0002P0000<00000@0003X0000<00002P000280000<0000
oooood/000100000<00000D0000P00000@000040000@0000SP000;ll002S0000dS`008h0002o?000
X`000=8l001B0000L0400040000A00001P00000000000000_08000000044P040E01Y06d0I@1c0200
CP1U07L0801B06l0K@1Q06h000000000000000000000000000000000000000000000000000000000
QP00080;901h0AH000000?3A4`000000^02AO1P?A@BldQ<0@@2AO7P75P1M095l80000000000P3dD4
EfEcM6EbKP000000N04F051000390P8030000000001TMP080000080;9000000000000000000001H0
000008P;9020_O5g00000000000X0000T0P00<3A4`0P3dD4_=TC023YT7aP095loooooed0TG`00?5g
000F0000lGL__O5gB0dFiB00000P3dD4d4/100D00000dQ<0B4000;cI4`0PjI1lH02AO?oooomM095l
I7H02000001TMP08000002D0000<00000@0001P0000<000000000QH0000<00006@000180000<0000
0@0001/0000@0000S`000<hl001D0000H00008l00030?000X0000=0l00010000002P@@00X4400000
000000<0001<00000000000000000000oooooooooomD0000<@0^038000070000100000L0000B0000
30000080001;0000@0000300000500008000004000010000400004800005?000ZP400=8l00120000
1C`00:X1003B?0008@0000P0001R000030000040000A000030000040001;00004000000000050000
>P0000`000030000900002@00000000o000000000000000o0000000000020000G`0003P000020000
>0000000000h00000000000R0@040000000000000000000000000000000U000030000080000U0000
300000D0081G0000900009h0002e?000[0000<@l00020000BP5kNDX1MgTU0000300000L0080U0000
30000000080T00009000000004000000000000000400000000000080000X000030000080000j0000
300000X0000j0000300000<0000T00009000000003l000000000000003l0000000000080001O0000
>0000080000h0000000003P000000000028100@0000000000000000000000000000002D0000<0000
0P0002D0000<00001@00P5L0000T0000Z`000;Dl002i0000a3`00080001T0G]iI05gNBD0000<0000
1`00P2D0000<00000000P2@0000T00000000@000000000000000@000000000000P0002P0000<0000
0P0003X0000<00002P0003X0000<00000`0002@0000T00000000?`00000000000000?`0000000000
0P0005l0000h00000P0003P000000000>000000000008P4010000000000000000000000000000000
9@0000`0000200009@0000`000050020E`0002@0002h0000]C`00<D00034?0000P0007d1NgUm0GMi
9@0000`0000700209@0000`000000020900002@00000001000000000000000100000000000020000
:00000`000020000>P0000`0000:0000>P0000`000030000900002@00000000o000000000000000o
0000000000020000G`0003P000020000>0000000000h00000000000R0@0400000000000000000000
00000000000U000030000080000U0000300000D0081G000090000<D0002d?000dP000<@l00020000
U`5kNIL1MGTU0000300000L0080U000030000000080T000090000000040000000000000004000000
00000080000X000030000080000j0000300000X0000R000030000?oooom;0000@000030000050000
800000400001000040000<40002o?000eP000=8l00310000_c`00=H0003B?0009@0000`000010000
600000`0000000025P0000`0000I00004P0000`0000100006`00010000320000cS`005@0001P0000
`P000<0l003C0000d3`0004000000:11002P@@00000000000`0004`00000000000000000003ooooo
oooooe@0000a02h0=00000L0000400001`000180000<00000P0004/000100000<00000D0000P0000
0@000040000@0000@P0000Dl002Z0@00dS`004800005?000ZP400=8l000Q000020000680000<0000
0@000140000<00000@0004/0000@0000000000D0000j0000300000<0000T00009000000003l00000
0000000003l0000000000080001O0000>0000080000h0000000003P000000000028100@000000000
0000000000000000000002D0000<00000P0002D0000<00001@00P5L0000T0000dP000;Dl003O0000
a3`00080002a0G]i/@5gNBD0000<00001`00P2D0000<00000000P2@0000T00000000@00000000000
0000@000000000000P0002P0000<00000P0003X0000<00002P0003X0000<00000`0002@0000T0000
0000?`00000000000000?`00000000000P0005l0000h00000P0003P000000000>000000000008P40
100000000000000000000000000000009@0000`0000200009@0000`000050020E`0002@0003N0000
]C`00>`00034?0000P000<X1NgW:0GMi9@0000`0000700209@0000`000000020900002@000000010
00000000000000100000000000020000:00000`000020000>P0000`0000:0000>P0000`000030000
900002@00000000o000000000000000o0000000000020000G`0003P000020000>0000000000h0000
0000000R0@040000000000000000000000000000000U000030000080000U0000300000D0081G0000
90000>/0002e?000n@000<@l00020000i05kNN@1MgTU0000300000L0080U000030000000080T0000
9000000004000000000000000400000000000080000X000030000080000j0000300000X0000j0000
300000<0000T00009000000003l000000000000003l0000000000080001O0000>0000080000h0000
000003P000000000028100@0000000000000000000000000000002D0000<00000P0002D0000<0000
1@00P5L0000T0000n0000;@l00050@00a3`00080003m0G]io@5eNBD0000<00001`00P2D0000<0000
0000P2@0000T00000000@000000000000000@000000000000P0002P0000<00000P0003X0000<0000
2P000280000<0000oooood/000100000<00000D0000P00000@000040000@0000m0000;ll00090@00
dS`00?@0002o?0002@400=8l000U000030000040000H000030000000008F0000300001T0000B0000
30000040000K000040000?D0003>?000E0000600003e0000`3`000H1003@?0000@000000X4400:11
0000000000030000C00000000000000000000?ooooooooooE0000340;P0f00001`0000@000070000
4P0000`000020000B`000400000`00001@000200000100000@000100001200001C`00:X1003B?000
@P0000Dl002Z0@00dS`0024000080000HP0000`0000100004@0000`000010000B`00010000000000
1@0003X0000<00000`0002@0000T00000000?`00000000000000?`00000000000P0005l0000h0000
0P0003P000000000>000000000008P40100000000000000000000000000000009@0000`000020000
9@0000`000050020E`0002@000050@00]C`001810034?0000P0001L2NgTG0WMi9@0000`000070020
9@0000`000000020900002@00000001000000000000000100000000000020000:00000`000020000
>P0000`0000:0000>P0000`000030000900002@00000000o000000000000000o0000000000020000
G`0003P000020000>0000000000h00000000000R0@040000000000000000000000000000000U0000
30000080000U0000300000D0081G000090000141002e?0007`400<@l00020000<09kNC02MgTU0000
300000L0080U000030000000080T00009000000004000000000000000400000000000080000X0000
30000080000j0000300000X0000j0000300000<0000T00009000000003l000000000000003l00000
00000080001O0000>0000080000h0000000003P000000000028100@0000000000000000000000000
000002D0000<00000P0002D0000<00001@00P5L0000T00007P400;Dl000/0@00a3`00080001:0W]i
BP9gNBD0000<00001`00P2D0000<00000000P2@0000T00000000@000000000000000@00000000000
0P0002P0000<00000P0003X0000<00002P0003X0000<00000`0002@0000T00000000?`0000000000
0000?`00000000000P0005l0000h00000P0003P000000000>000000000008P401000000000000000
00000000000000009@0000`0000200009@0000`000050020E`0002@0000[0@00]3`003T10034?000
0P0006@2NgUT0WEi9@0000`0000700209@0000`000000020900002@0000000100000000000000010
0000000000020000:00000`000020000>P0000`0000:00008P0000`0003oooooB`000400000`0000
1@000200000100000@000100000W0@00_c`003`1003B?0009`400;ll000l0@00dS`002D0000<0000
0@0001P0000<000000000QH0000<00006@000180000<00000@0001/0000@0000:0400<hl001D0000
H00002P10030?000>@400=0l00010000002P@@00X4400000000000<0001<00000000000000000000
oooooooooomD0000<@0^03P000070000100000L0000B000030000080001;0000@000030000050000
8000004000010000400004800005?000ZP400=8l001200001C`00:X1003B?0008@0000P0001R0000
30000040000A000030000040001;00004000000000050000>P0000`000030000900002@00000000o
000000000000000o0000000000020000G`0003P000020000>0000000000h00000000000R0@040000
000000000000000000000000000U000030000080000U0000300000D0081G0000900003P1002e?000
A@400<@l00020000O@9kNGd2MgTU0000300000L0080U000030000000080T00009000000004000000
000000000400000000000080000X000030000080000j0000300000X0000j0000300000<0000T0000
9000000003l000000000000003l0000000000080001O0000>0000080000h0000000003P000000000
028100@0000000000000000000000000000002D0000<00000P0002D0000<00001@00P5L0000T0000
A@400;Dl001B0@00a3`00080002G0W]iU`9gNBD0000<00001`00P2D0000<00000000P2@0000T0000
0000@000000000000000@000000000000P0002P0000<00000P0003X0000<00002P0003X0000<0000
0`0002@0000T00000000?`00000000000000?`00000000000P0005l0000h00000P0003P000000000
>000000000008P40100000000000000000000000000000009@0000`0000200009@0000`000050020
E`0002@0001A0@00]C`005l10034?0000P000;02NgV`0WMi9@0000`0000700209@0000`000000020
900002@00000001000000000000000100000000000020000:00000`000020000>P0000`0000:0000
>P0000`000030000900002@00000000o000000000000000o0000000000020000G`0003P000020000
>0000000000h00000000000R0@040000000000000000000000000000000U000030000080000U0000
300000D0081G0000900005h1002d?000K0400<@l00020000bP9kNLX2MGTU0000300000L0080U0000
30000000080T00009000000004000000000000000400000000000080000X000030000080000j0000
300000X0000R000030000?oooom;0000@0000300000500008000004000010000400005X1002o?000
K`400=8l001J0@00_c`006l1003B?0009@0000`000010000600000`0000000025P0000`0000I0000
4P0000`0000100006`000100001K0@00cS`005@0001P0000F`400<0l001/0@00d3`0004000000:11
002P@@00000000000`0004`00000000000000000003ooooooooooe@0000b02h0<00000L000040000
1`000180000<00000P0004/000100000<00000D0000P00000@000040000@0000@P0000Dl002Z0@00
dS`004800005?000ZP400=8l000Q000020000680000<00000@000140000<00000@0004/0000@0000
000000D0000j0000300000<0000T00009000000003l000000000000003l0000000000080001O0000
>0000080000h0000000003P000000000028100@0000000000000000000000000000002D0000<0000
0P0002D0000<00001@00P5L0000T0000F@000;Ll001a0@00a3`00080003007]ie09kNBD0000<0000
1`00P2D0000<00000000P2@0000T00000000@000000000000000@000000000000P0002P0000<0000
0P0003X0000<00002P000280000<0000oooood/000100000<00000D0000P00000@000040000@0000
L@400;<l002Z0@00ac`00741002c?000ZP400<Ll000U000030000040000H000030000000008F0000
300001T0000B000030000040000K0000400007810032?000E0000600001b0@00]3`008D10034?000
0@000000X4400:110000000000030000C00000000000000000000?ooooooooooE0000440J@1b05=g
2P0000@0000600004P0000`0000200004P0000`0000100006`000100002:0@00`S`005@0001T0000
RP400;@l002X0@00a3`0004000000:11002P@@0000000000100004`00000000000000000003ooooo
oooooe@0001=0640L`1c00`0000700001P0000H0000B000030000080001;0000@000030000050000
8000004000010000400004800005?000ZP400=8l001200001C`00:X1003B?0008@0000P0001R0000
30000040000A000030000040001;00004000000000050000>P0000`000030000900002@00000000o
000000000000000o0000000000020000G`0003P000020000>0000000000h00000000000R0@040000
000000000000000000000000000U000030000080000U0000300000D0081G0000900005h0002g?000
K`000<@l00020000bP1kNM40NgTU0000300000L0080U000030000000080T00009000000004000000
000000000400000000000080000X000030000080000j0000300000X0000j0000300000<0000T0000
9000000003l000000000000003l0000000000080001O0000>0000080000h0000000003P000000000
028100@0000000000000000000000000000002D0000<00000P0002D0000<00001@00P5L0000T0000
GP000:dl001^0000^c`00080003:06QicP1XNBD0000<00001`00P2D0000<00000000P2@0000T0000
0000@000000000000000@000000000000P0002P0000<00000P0003X0000<00002P0003X0000<0000
0`0002@0000T00000000?`00000000000000?`00000000000P0005l0000h00000P0003P000000000
>000000000008P40100000000000000000000000000000009@0000`0000200009@0000`000050020
E`0002@0001N0000Y3`006h0002b?0000P000<X0EWW>05Ii9@0000`0000700209@0000`000000020
900002@00000001000000000000000100000000000020000:00000`000020000>P0000`0000:0000
>P0000`000030000900002@00000000o000000000000000o0000000000020000G`0003P000020000
>0000000000h00000000000R0@040000000000000000000000000000000U000030000080000U0000
300000D0081G0000900005h0002K?000KP000:Pl00020000bP13NLh0@gTU0000300000L0080U0000
30000000080T00009000000004000000000000000400000000000080000X000030000080000j0000
300000X0000j0000300000<0000T00009000000003l000000000000003l0000000000080001O0000
>0000080000h0000000003P000000000028100@0000000000000000000000000000002D0000<0000
0P0002D0000<00001@00P5L0000T0000GP00098l001^0000Wc`00080003:035icP0aNBD0000<0000
1`00P2D0000<00000000P2@0000T00000000@000000000000000@000000000000P0002P0000<0000
0P0003X0000<00002P0003X0000<00000`0002@0000T00000000?`00000000000000?`0000000000
0P0005l0000h00000P0003P000000000>000000000008P4010000000000000000000000000000000
9@0000`0000200009@0000`000050020E`0002@0001N0000R3`006l0002F?0000P000<X07WWA01ii
9@0000`0000700209@0000`000000020900002@00000001000000000000000100000000000020000
:00000`000020000>P0000`0000:00008P0000`0003oooooB`000400000`00001@00020000010000
0@00010000120000QC`006<0002I?000@P0008Dl001S0000VC`002D0000<00000@0001P0000<0000
00000QH0000<00006@000180000<00000@0001/0000@0000@P0009@l001D0000K00004800026?000
H@0009Hl00010000002P@@00X4400000000000D0001<00000000000000000000oooooooooomH0000
<00^0300<00e00001`0000@0000700001`0000L0000B000030000080001;0000@000030000050000
8000004000010000400004800005?000ZP400=8l001200001C`00:X1003B?0008@0000P0001R0000
30000040000A000030000040001;00004000000000050000>P0000`000030000900002@00000000o
000000000000000o0000000000020000G`0003P000020000>0000000000h00000000000R0@040000
000000000000000000000000000U000030000080000U0000300000D0081G0000900005h0001o?000
KP0008dl00020000bP0<NLh037TU0000300000L0080U000030000000080T00009000000004000000
000000000400000000000080000X000030000080000j0000300000X0000j0000300000<0000T0000
9000000003l000000000000003l0000000000080001O0000>0000080000h0000000003P000000000
028100@0000000000000000000000000000002D0000<00000P0002D0000<00001@00P5L0000T0000
GP0007Hl001^0000Pc`00080003:0?UhcP3iN2D0000<00001`00P2D0000<00000000P2@0000T0000
0000@000000000000000@000000000000P0002P0000<00000P0003X0000<00002P0003X0000<0000
0`0002@0000T00000000?`00000000000000?`00000000000P0005l0000h00000P0003P000000000
>000000000008P40100000000000000000000000000000009@0000`0000200009@0000`000050020
E`0002@0001N0000K3`006h0001j?0000P000<X0iWS>0>Ih9@0000`0000700209@0000`000000020
900002@00000001000000000000000100000000000020000:00000`000020000>P0000`0000:0000
>P0000`000030000900002@00000000o000000000000000o0000000000020000G`0003P000020000
>0000000000h00000000000R0@040000000000000000000000000000000U000030000080000U0000
300000D0081G0000900005h0001S?000KP00074l00020000bP3DN<h0e7PU0000300000L0080U0000
30000000080T00009000000004000000000000000400000000000080000X000030000080000j0000
300000X0000j0000300000<0000T00009000000003l000000000000003l0000000000080001O0000
>0000080000h0000000003P000000000028100@0000000000000000000000000000002D0000<0000
0P0002D0000<00001@00P5L0000T0000GP0005Xl001_0000Ic`00080003:0<5hd@31N2D0000<0000
1`00P2D0000<00000000P2@0000T00000000@000000000000000@000000000000P0002P0000<0000
0P0003X0000<00002P000280000<0000oooood/000100000<00000D0000P00000@000040000@0000
@P0005Hl001S0000JS`00480001F?000H`0006Xl000U000030000040000H000030000000008F0000
300001T0000B000030000040000K000040000480001U?000E00006`000120000Ec`00640001W?000
0@000000X4400:110000000000050000C00000000000000000000?ooooooooooF0000300;P0`0340
<00000L0000400001`0000L0000700004P0000`000020000B`000400000`00001@00020000010000
0@000100001200001C`00:X1003B?000@P0000Dl002Z0@00dS`0024000080000HP0000`000010000
4@0000`000010000B`000100000000001@0003X0000<00000`0002@0000T00000000?`0000000000
0000?`00000000000P0005l0000h00000P0003P000000000>000000000008P401000000000000000
00000000000000009@0000`0000200009@0000`000050020E`0002@0001N0000DC`006h0001N?000
0P000<X0[gS>0:mh9@0000`0000700209@0000`000000020900002@0000000100000000000000010
0000000000020000:00000`000020000>P0000`0000:0000>P0000`000030000900002@00000000o
000000000000000o0000000000020000G`0003P000020000>0000000000h00000000000R0@040000
000000000000000000000000000U000030000080000U0000300000D0081G0000900005h00017?000
KP0005Dl00020000bP2LN<h0W7PU0000300000L0080U000030000000080T00009000000004000000
000000000400000000000080000X000030000080000j0000300000X0000j0000300000<0000T0000
9000000003l000000000000003l0000000000080001O0000>0000080000h0000000003P000000000
028100@0000000000000000000000000000002D0000<00000P0002D0000<00001@00P5L0000T0000
GP0003hl001^0000Bc`00080003:08UhcP29N2D0000<00001`00P2D0000<00000000P2@0000T0000
0000@000000000000000@000000000000P0002P0000<00000P0003X0000<00002P0003X0000<0000
0`0002@0000T00000000?`00000000000000?`00000000000P0005l0000h00000P0003P000000000
>000000000008P40100000000000000000000000000000009@0000`0000200009@0000`000050020
E`0002@0001N0000=C`006h00012?0000P000<X0MgS>07Mh9@0000`0000700209@0000`000000020
900002@00000001000000000000000100000000000020000:00000`000020000>P0000`0000:0000
>P0000`000030000900002@00000000o000000000000000o0000000000020000G`0003P000020000
>0000000000h00000000000R0@040000000000000000000000000000000U000030000080000U0000
300000D0081G0000900005h0000[?000K`0003Tl00020000bP1TN=40I7PU0000300000L0080U0000
30000000080T00009000000004000000000000000400000000000080000X000030000080000j0000
300000X0000R000030000?oooom;0000@000030000050000800000400001000040000480000X?000
H`0003`l00120000:3`006<0000l?0009@0000`000010000600000`0000000025P0000`0000I0000
4P0000`0000100006`00010000120000=c`005@0001/0000@P0002Tl001Q0000>C`0004000000:11
002P@@00000000001@0004`00000000000000000003ooooooooooeP0000`02h0<00a03D008070000
100000L0000700001`000180000<00000P0004/000100000<00000D0000P00000@000040000@0000
@P0000Dl002Z0@00dS`004800005?000ZP400=8l000Q000020000680000<00000@000140000<0000
0@0004/0000@0000000000D0000j0000300000<0000T00009000000003l000000000000003l00000
00000080001O0000>0000080000h0000000003P000000000028100@0000000000000000000000000
000002D0000<00000P0002D0000<00001@00P5L0000T0000GP00028l001^0000<3`00080003:059h
cP1BN2D0000<00001`00P2D0000<00000000P2@0000T00000000@000000000000000@00000000000
0P0002P0000<00000P0003X0000<00002P0003X0000<00000`0002@0000T00000000?`0000000000
0000?`00000000000P0005l0000h00000P0003P000000000>000000000008P401000000000000000
00000000000000009@0000`0000200009@0000`000050020E`0002@0001N00006C`006h0000V?000
0P000<X0?gS>03mh9@0000`0000700209@0000`000000020900002@0000000100000000000000010
0000000000020000:00000`000020000>P0000`0000:0000>P0000`000030000900002@00000000o
000000000000000o0000000000020000G`0003P000020000>0000000000h00000000000R0@040000
000000000000000000000000000U000030000080000U0000300000D0081G0000900005h0000E?000
K0000<Pl00020000bP22NLX0>7PU0000300000L0080U000030000000080T00009000000004000000
000000000400000000000080000X000030000080000j0000300000X0000R000030000?oooom;0000
@0000300000500008000004000010000400005800005?000N00001Ll001B00001C`007P0000G?000
9@0000`000010000600000`0000000025P0000`0000I00004P0000`0000100006`000100001C0000
4c`005@0001/0000D`0000Dl001f00005C`0004000000:11002P@@00000000001@0004`000000000
00000000003ooooooooooeP0001C0700I@1U06@0000800001`0000L0000700001`000180000<0000
0P0004/000100000<00000D0000P00000@000040000@0000@P0000Dl002Z0@00dS`004800005?000
ZP400=8l001;0000@0000300000500008000004000010000400005l0000L?000JP400<4l001O0000
73`006X10031?000B`000400000`00001@000200000100000@000100001200001C`00:X1003B?000
@P0000Dl002Z0@00dS`004/000100000<00000D0000P00000@000040000@00000H3oo`60ooooO`00
ogl00060ool1P?ooogl00?mo000>000050000000000@00005000
\>"], "Output",
 Evaluatable->False,
 CellChangeTimes->{{3.56681612215625*^9, 3.566816141609375*^9}},
 ImageSize->{364, 205},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"SSpeedAll", "[", 
    RowBox[{"850", ",", "850", ",", "FWHMCT", ",", "1.0", ",", "10", ",", 
     RowBox[{"RMSSpot7", "[", "850", "]"}], ",", "FWHMfixDS", ",", "DefocMH", 
     ",", "PlateScDESP", ",", "DAp", ",", "Relg", ",", "0", ",", "6000", ",", 
     "80"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"DAp", ",", "1.5", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"\"\<Fiber Diam\>\"", ",", "\"\<Speed\>\""}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
   "survey", " ", "speed", " ", "vs", " ", "fiber", " ", "size", " ", "for", 
    " ", "elgs", " ", "at", " ", "zenith"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.559232078546875*^9, 3.559232116265625*^9}, 
   3.559964311640625*^9, {3.56000758303125*^9, 3.56000759025*^9}, {
   3.56000796128125*^9, 3.5600079731875*^9}, {3.56015764528125*^9, 
   3.560157646765625*^9}, {3.5601581085*^9, 3.56015810959375*^9}, {
   3.56068396371875*^9, 3.5606839654375*^9}, {3.56068421521875*^9, 
   3.560684220046875*^9}, {3.560684590515625*^9, 3.560684595125*^9}, {
   3.560757900703125*^9, 3.5607579016875*^9}, {3.56385964728125*^9, 
   3.563859666375*^9}, {3.56507226846875*^9, 3.5650722898125*^9}, 
   3.565075385828125*^9, {3.565086248234375*^9, 3.56508624825*^9}, 
   3.56518521346875*^9, {3.565185410125*^9, 3.56518552765625*^9}, {
   3.566804861*^9, 3.5668049005*^9}, {3.566804944515625*^9, 
   3.566804944703125*^9}, {3.56680498678125*^9, 3.566805026578125*^9}, {
   3.56680532484375*^9, 3.566805372015625*^9}, {3.5668054080625*^9, 
   3.566805514203125*^9}, {3.56680590425*^9, 3.566805934921875*^9}, {
   3.567084685796875*^9, 3.567084690515625*^9}, {3.56708473571875*^9, 
   3.56708473853125*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000263157895`, 0.10197007123242911`}, {
     1.5253106420756577`, 0.10270827429722225`}, {1.5527502499259862`, 
     0.10342062222051716`}, {1.5783714814457226`, 0.10400431964116354`}, {
     1.603490126108551, 0.10450144694261058`}, {1.6307377628618398`, 
     0.10495814463048302`}, {1.6561670232845362`, 0.10530842102073533`}, {
     1.683725275797693, 0.10560713646384559`}, {1.7107809414539419`, 
     0.10582059948632233`}, {1.7360182307795984`, 0.1059503584039317}, {
     1.7633845121957155`, 0.10601759363372099`}, {1.7889324172812402`, 
     0.10601345646402904`}, {1.813977735509857, 0.10594870044639912`}, {
     1.841152045828934, 0.10581276581171839`}, {1.866507979817419, 
     0.10562648183176566`}, {1.893992905896364, 0.10536224879310907`}, {
     1.9209752451184012`, 0.10504235798280635`}, {1.9461392080098463`, 
     0.10469231344900998`}, {1.9734321629917517`, 0.104258741949318}, {
     1.9989067416430648`, 0.10380575039637341`}, {1.9999999736842105`, 
     0.10378530112262258`}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Fiber Diam\"", TraditionalForm], 
    FormBox["\"Speed\"", TraditionalForm]},
  AxesOrigin->{1.5, 0.10200000000000001`},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.5, 2}, {0.10197007123242911`, 0.10601759363372099`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.56680550178125*^9, 3.5668059435625*^9, 
  3.56680600265625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Quiet", "[", 
  RowBox[{"NMaximize", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"SSpeedAll", "[", 
       RowBox[{"850", ",", "850", ",", "FWHMCT", ",", "1.0", ",", "10", ",", 
        RowBox[{"RMSSpot7", "[", "850", "]"}], ",", "FWHMfixDS", ",", 
        "DefocMH", ",", "PlateScDESP", ",", "DAp", ",", "Relg", ",", "0", ",",
         "6000", ",", "80"}], "]"}], ",", 
      RowBox[{
       RowBox[{"DAp", ">", "1"}], "&&", 
       RowBox[{"DAp", "<", "2"}]}]}], "}"}], ",", 
    RowBox[{"{", "DAp", "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "optimal", " ", "vs", " ", "fiber", " ", "size", " ", "for", " ", "elgs", 
    " ", "at", " ", "zenith"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.566805554328125*^9, 3.5668055805625*^9}, 
   3.56680595696875*^9, 3.56680601471875*^9, {3.567084591453125*^9, 
   3.567084621515625*^9}, {3.567084659203125*^9, 3.567084673984375*^9}, {
   3.5670847500625*^9, 3.56708475228125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.10602360885761365`", ",", 
   RowBox[{"{", 
    RowBox[{"DAp", "\[Rule]", "1.7744629239918448`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.56680603771875*^9, 3.567084644140625*^9, 
  3.56708469490625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"SSpeedAll", "[", 
    RowBox[{"800", ",", "800", ",", "FWHMCT", ",", "1.0", ",", "10", ",", 
     RowBox[{"RMSSpot7", "[", "800", "]"}], ",", "FWHMfixDS", ",", "DefocMH", 
     ",", "PlateScDESP", ",", "DAp", ",", "0", ",", "Rlrg", ",", "6000", ",", 
     "200"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"DAp", ",", "1.5", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"\"\<Fiber Diam\>\"", ",", "\"\<Speed\>\""}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
   "survey", " ", "speed", " ", "vs", " ", "fiber", " ", "size", " ", "for", 
    " ", "lrgs", " ", "at", " ", "zenith"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.559232078546875*^9, 3.559232116265625*^9}, 
   3.559964311640625*^9, {3.56000758303125*^9, 3.56000759025*^9}, {
   3.56000796128125*^9, 3.5600079731875*^9}, {3.56015764528125*^9, 
   3.560157646765625*^9}, {3.5601581085*^9, 3.56015810959375*^9}, {
   3.56068396371875*^9, 3.5606839654375*^9}, {3.56068421521875*^9, 
   3.560684220046875*^9}, {3.560684590515625*^9, 3.560684595125*^9}, {
   3.560757900703125*^9, 3.5607579016875*^9}, {3.56385964728125*^9, 
   3.563859666375*^9}, {3.56507226846875*^9, 3.5650722898125*^9}, 
   3.565075385828125*^9, {3.565086248234375*^9, 3.56508624825*^9}, 
   3.56518521346875*^9, {3.565185410125*^9, 3.56518552765625*^9}, {
   3.566804861*^9, 3.5668049005*^9}, {3.566804944515625*^9, 
   3.566804944703125*^9}, {3.56680498678125*^9, 3.566805026578125*^9}, {
   3.56680532484375*^9, 3.566805372015625*^9}, {3.5668054080625*^9, 
   3.566805514203125*^9}, {3.56680590425*^9, 3.566805934921875*^9}, {
   3.566806584453125*^9, 3.566806605859375*^9}, {3.566806734796875*^9, 
   3.566806735140625*^9}, {3.567084696015625*^9, 3.567084704125*^9}, 
   3.567084761203125*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000263157895`, 0.08034303083809557}, {1.5253106420756577`,
      0.08083039022648814}, {1.5527502499259862`, 0.08129935767509038}, {
     1.5783714814457226`, 0.08168291036308062}, {1.603490126108551, 
     0.08200939902789836}, {1.6307377628618398`, 0.0823097139273427}, {
     1.6561670232845362`, 0.0825409875503587}, {1.683725275797693, 
     0.08273998657426741}, {1.7107809414539419`, 0.082884925139537}, {
     1.7360182307795984`, 0.08297671679602692}, {1.7633845121957155`, 
     0.08303069494577985}, {1.7889324172812402`, 0.08303995619680371}, {
     1.813977735509857, 0.08301202237965001}, {1.841152045828934, 
     0.08294197408093822}, {1.866507979817419, 0.08284089955240188}, {
     1.893992905896364, 0.08269416282500519}, {1.9209752451184012`, 
     0.08251424749629153}, {1.9461392080098463`, 0.08231597699636423}, {
     1.9734321629917517`, 0.08206932117586531}, {1.9989067416430648`, 
     0.08181090355018594}, {1.9999999736842105`, 0.08179922624050204}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Fiber Diam\"", TraditionalForm], 
    FormBox["\"Speed\"", TraditionalForm]},
  AxesOrigin->{1.5, 0.0805},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.5, 2}, {0.08034303083809557, 0.08303995619680371}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.56680550178125*^9, 3.5668059435625*^9, 
  3.56680600265625*^9, 3.56680661596875*^9, 3.566806745703125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Quiet", "[", 
  RowBox[{"NMaximize", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"SSpeedAll", "[", 
       RowBox[{"800", ",", "800", ",", "FWHMCT", ",", "1.0", ",", "10", ",", 
        RowBox[{"RMSSpot7", "[", "800", "]"}], ",", "FWHMfixDS", ",", 
        "DefocMH", ",", "PlateScDESP", ",", "DAp", ",", "0", ",", "Rlrg", ",",
         "6000", ",", "200"}], "]"}], ",", 
      RowBox[{
       RowBox[{"DAp", ">", "1"}], "&&", 
       RowBox[{"DAp", "<", "2"}]}]}], "}"}], ",", 
    RowBox[{"{", "DAp", "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "optimal", " ", "fiber", " ", "size", " ", "for", " ", "lrgs", " ", "at", 
    " ", "zenith"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.566805554328125*^9, 3.5668055805625*^9}, 
   3.56680595696875*^9, 3.56680601471875*^9, {3.56680661378125*^9, 
   3.566806622890625*^9}, {3.5668067395625*^9, 3.566806749671875*^9}, {
   3.5670847138125*^9, 3.567084719484375*^9}, {3.567084768265625*^9, 
   3.56708477334375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.08304127846286916`", ",", 
   RowBox[{"{", 
    RowBox[{"DAp", "\[Rule]", "1.782227335943713`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.56680603771875*^9, 3.566806648015625*^9, 3.566806771*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"SSpeedAll", "[", 
    RowBox[{"350", ",", "410", ",", "FWHMCT", ",", "1.0", ",", "10", ",", 
     RowBox[{"RMSSpot7", "[", "350", "]"}], ",", "FWHMfixDS", ",", "DefocMH", 
     ",", "PlateScDESP", ",", "DAp", ",", "0", ",", "0", ",", "6000", ",", 
     "20"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"DAp", ",", "1.25", ",", "1.75"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"\"\<Fiber Diam\>\"", ",", "\"\<Speed\>\""}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
   "survey", " ", "speed", " ", "vs", " ", "fiber", " ", "size", " ", "for", 
    " ", "qso", " ", "at", " ", "350", "nm", " ", "zenith"}], " ", 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.559232078546875*^9, 3.559232116265625*^9}, 
   3.559964311640625*^9, {3.56000758303125*^9, 3.56000759025*^9}, {
   3.56000796128125*^9, 3.5600079731875*^9}, {3.56015764528125*^9, 
   3.560157646765625*^9}, {3.5601581085*^9, 3.56015810959375*^9}, {
   3.56068396371875*^9, 3.5606839654375*^9}, {3.56068421521875*^9, 
   3.560684220046875*^9}, {3.560684590515625*^9, 3.560684595125*^9}, {
   3.560757900703125*^9, 3.5607579016875*^9}, {3.56385964728125*^9, 
   3.563859666375*^9}, {3.56507226846875*^9, 3.5650722898125*^9}, 
   3.565075385828125*^9, {3.565086248234375*^9, 3.56508624825*^9}, 
   3.56518521346875*^9, {3.565185410125*^9, 3.56518552765625*^9}, {
   3.566804861*^9, 3.5668049005*^9}, {3.566804944515625*^9, 
   3.566804944703125*^9}, {3.56680498678125*^9, 3.566805026578125*^9}, {
   3.56680532484375*^9, 3.566805372015625*^9}, {3.5668054080625*^9, 
   3.566805514203125*^9}, {3.56680590425*^9, 3.566805934921875*^9}, {
   3.566806584453125*^9, 3.566806605859375*^9}, {3.566806701265625*^9, 
   3.56680671371875*^9}, {3.566806793484375*^9, 3.566806829375*^9}, {
   3.56680710996875*^9, 3.566807127734375*^9}, {3.567084781546875*^9, 
   3.567084806984375*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.2500000263157895`, 0.023154589939289094`}, {
     1.2753106420756577`, 0.02327118671130721}, {1.3027502499259862`, 
     0.023371455484168437`}, {1.3283714814457226`, 0.02344125536706944}, {
     1.353490126108551, 0.023488059625895567`}, {1.3807377628618398`, 
     0.0235154424177741}, {1.4061670232845362`, 0.023519835050600655`}, {
     1.433725275797693, 0.02350244041797989}, {1.4607809414539419`, 
     0.023463884807794367`}, {1.4860182307795984`, 0.023409585600680884`}, {
     1.5133845121957155`, 0.02333163643041269}, {1.5389324172812402`, 
     0.023241819096341}, {1.563977735509857, 0.02313859282953899}, {
     1.591152045828934, 0.023010489948347385`}, {1.616507979817419, 
     0.02287667547906611}, {1.643992905896364, 0.02271697423571152}, {
     1.6709752451184012`, 0.022546286255848168`}, {1.6961392080098463`, 
     0.022375488870004973`}, {1.7234321629917517`, 0.02217843019021758}, {
     1.7489067416430648`, 0.02198418475306212}, {1.7499999736842105`, 
     0.021975637238273216`}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Fiber Diam\"", TraditionalForm], 
    FormBox["\"Speed\"", TraditionalForm]},
  AxesOrigin->{1.3, 0.022000000000000002`},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.25, 1.75}, {0.021975637238273216`, 0.023519835050600655`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.566806719734375*^9, 3.566806803109375*^9, 3.566806835125*^9, {
   3.56680711815625*^9, 3.5668071326875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Quiet", "[", 
  RowBox[{"NMaximize", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"SSpeedAll", "[", 
       RowBox[{"350", ",", "410", ",", "FWHMCT", ",", "1.0", ",", "10", ",", 
        RowBox[{"RMSSpot7", "[", "350", "]"}], ",", "FWHMfixDS", ",", 
        "DefocMH", ",", "PlateScDESP", ",", "DAp", ",", "0", ",", "0", ",", 
        "6000", ",", "20"}], "]"}], ",", 
      RowBox[{
       RowBox[{"DAp", ">", "1"}], "&&", 
       RowBox[{"DAp", "<", "2"}]}]}], "}"}], ",", 
    RowBox[{"{", "DAp", "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
   "optimal", " ", "fiber", " ", "size", " ", "for", " ", "qso", " ", "at", 
    " ", "350", "nm", " ", "zenith"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.566805554328125*^9, 3.5668055805625*^9}, 
   3.56680595696875*^9, 3.56680601471875*^9, {3.56680661378125*^9, 
   3.566806622890625*^9}, {3.5668067395625*^9, 3.566806749671875*^9}, 
   3.566807083375*^9, {3.56680711703125*^9, 3.566807117265625*^9}, 
   3.56680715565625*^9, {3.567084816421875*^9, 3.567084822984375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.02352061864759882`", ",", 
   RowBox[{"{", 
    RowBox[{"DAp", "\[Rule]", "1.3990111216566452`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.566807178421875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
  "now", " ", "find", " ", "total", " ", "survey", " ", "time", " ", "for", 
   " ", "SDSS", " ", "AM", " ", "distn"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.56518655371875*^9, 3.5651865635625*^9}, {
  3.566807714609375*^9, 3.5668077188125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"STime", "[", 
   RowBox[{
   "\[Lambda]_", ",", "\[Lambda]0_", ",", "FWHMsite_", ",", "Decent_", ",", 
    "RmsSpot_", ",", "FWHMFix_", ",", "DDefoc_", ",", "PlateSc_", ",", "DAp_",
     ",", "RE_", ",", "RV_", ",", "Res1_", ",", "VSig_"}], "]"}], ":=", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"FAM", "[", "AM", "]"}], "/", 
     RowBox[{"SSpeedAll", "[", 
      RowBox[{
      "\[Lambda]", ",", "\[Lambda]0", ",", "FWHMsite", ",", "AM", ",", 
       "Decent", ",", "RmsSpot", ",", "FWHMFix", ",", "DDefoc", ",", 
       "PlateSc", ",", "DAp", ",", "RE", ",", "RV", ",", "Res1", ",", 
       "VSig"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"AM", ",", 
      RowBox[{"{", 
       RowBox[{
       "1.05", ",", "1.15", ",", "1.25", ",", "1.35", ",", "1.45", ",", 
        "1.55", ",", "1.65", ",", "1.75", ",", "1.85", ",", "1.95", ",", 
        "2.05"}], "}"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.561728107546875*^9, 3.561728107859375*^9}, {
   3.56172817284375*^9, 3.561728182109375*^9}, {3.56172999075*^9, 
   3.561730005015625*^9}, {3.5617300586875*^9, 3.5617300594375*^9}, {
   3.56173009534375*^9, 3.561730189703125*^9}, 3.561730222828125*^9, {
   3.5617307648125*^9, 3.561730829828125*^9}, {3.561732711203125*^9, 
   3.561732719890625*^9}, {3.56236184625*^9, 3.5623618725625*^9}, {
   3.56507238990625*^9, 3.565072411875*^9}, {3.56508624828125*^9, 
   3.565086248296875*^9}, {3.56518559221875*^9, 3.56518587453125*^9}, 
   3.56518630965625*^9, {3.565186584296875*^9, 3.565186585328125*^9}, {
   3.566805774953125*^9, 3.566805783609375*^9}, 3.5668077295*^9, {
   3.5668077775625*^9, 3.56680778528125*^9}, {3.56680789965625*^9, 
   3.566807900140625*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"STimeAM01", "[", 
   RowBox[{
   "\[Lambda]_", ",", "\[Lambda]0_", ",", "FWHMsite_", ",", "Decent_", ",", 
    "RmsSpot_", ",", "FWHMFix_", ",", "DDefoc_", ",", "PlateSc_", ",", "DAp_",
     ",", "RE_", ",", "RV_", ",", "Res1_", ",", "VSig_"}], "]"}], ":=", " ", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"FAM", "[", "AM", "]"}], "/", 
     RowBox[{"SSpeedAll", "[", 
      RowBox[{"\[Lambda]", ",", "\[Lambda]0", ",", "FWHMsite", ",", 
       RowBox[{"AM", "+", "0.1"}], ",", "Decent", ",", "RmsSpot", ",", 
       "FWHMFix", ",", "DDefoc", ",", "PlateSc", ",", "DAp", ",", "RE", ",", 
       "RV", ",", "Res1", ",", "VSig"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"AM", ",", 
      RowBox[{"{", 
       RowBox[{
       "1.05", ",", "1.15", ",", "1.25", ",", "1.35", ",", "1.45", ",", 
        "1.55", ",", "1.65", ",", "1.75", ",", "1.85", ",", "1.95", ",", 
        "2.05"}], "}"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"survey", " ", "time", " ", "for", " ", "SDSS", " ", "AM"}], "+", 
    
    RowBox[{"0.1", " ", "distn"}]}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.561728107546875*^9, 3.561728107859375*^9}, {
   3.56172817284375*^9, 3.561728182109375*^9}, {3.56172999075*^9, 
   3.561730005015625*^9}, {3.5617300586875*^9, 3.5617300594375*^9}, {
   3.56173009534375*^9, 3.561730189703125*^9}, 3.561730222828125*^9, {
   3.5617307648125*^9, 3.561730829828125*^9}, {3.561732711203125*^9, 
   3.561732719890625*^9}, {3.56236184625*^9, 3.5623618725625*^9}, {
   3.56507238990625*^9, 3.565072411875*^9}, {3.56508624828125*^9, 
   3.565086248296875*^9}, {3.56518559221875*^9, 3.56518587453125*^9}, 
   3.56518630965625*^9, {3.565186590609375*^9, 3.56518659125*^9}, {
   3.56518662146875*^9, 3.5651866225625*^9}, {3.565186664046875*^9, 
   3.56518666628125*^9}, 3.5651869559375*^9, {3.56665486503125*^9, 
   3.566654866609375*^9}, {3.566807866625*^9, 3.566807908515625*^9}, {
   3.56681948234375*^9, 3.566819483296875*^9}, {3.56708485434375*^9, 
   3.5670848550625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"STime", "[", 
    RowBox[{"850", ",", "850", ",", ".75", ",", "10", ",", 
     RowBox[{"RMSSpot7", "[", "850", "]"}], ",", "FWHMfixDS", ",", "DefocMH", 
     ",", "56.73", ",", "DAp", ",", "Relg", ",", "0", ",", "6000", ",", 
     "80"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"DAp", ",", "1.5", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"\"\<Fiber Diam\>\"", ",", "\"\<Time\>\""}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
   "survey", " ", "time", " ", "vs", " ", "fiber", " ", "size", " ", "for", 
    " ", "elgs"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.56518743709375*^9, 3.56518746646875*^9}, {
  3.565187590375*^9, 3.56518759528125*^9}, {3.565187707671875*^9, 
  3.565187788234375*^9}, {3.56518812803125*^9, 3.56518813096875*^9}, {
  3.565188877375*^9, 3.565188877953125*^9}, {3.565188922421875*^9, 
  3.565188923*^9}, {3.56518908640625*^9, 3.5651891205*^9}, {
  3.566655069421875*^9, 3.5666550740625*^9}, {3.566807946734375*^9, 
  3.566808002328125*^9}, {3.566809351515625*^9, 3.5668093554375*^9}, {
  3.566809420734375*^9, 3.566809423984375*^9}, {3.56680946534375*^9, 
  3.566809481*^9}, {3.566819055203125*^9, 3.5668190556875*^9}, {
  3.567085274625*^9, 3.56708528503125*^9}, {3.56708731184375*^9, 
  3.567087312546875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000263157895`, 12.729006948987099`}, {1.5253106420756577`,
      12.620927362991267`}, {1.5527502499259862`, 12.51611117814071}, {
     1.5783714814457226`, 12.429250596190226`}, {1.603490126108551, 
     12.353907220716586`}, {1.6307377628618398`, 12.28264556911202}, {
     1.6561670232845362`, 12.225521532595625`}, {1.683725275797693, 
     12.173384252364308`}, {1.7107809414539419`, 12.131660436382834`}, {
     1.7360182307795984`, 12.100846990709229`}, {1.7633845121957155`, 
     12.075932279439694`}, {1.7889324172812402`, 12.060362541787566`}, {
     1.813977735509857, 12.052056740031588`}, {1.841152045828934, 
     12.050580379493908`}, {1.866507979817419, 12.05605523849564}, {
     1.893992905896364, 12.069233692339294`}, {1.9209752451184012`, 
     12.089290733468557`}, {1.9461392080098463`, 12.114180656229168`}, {
     1.9734321629917517`, 12.147752383400269`}, {1.9989067416430648`, 
     12.185116567375728`}, {1.9999999736842105`, 12.186848281343039`}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Fiber Diam\"", TraditionalForm], 
    FormBox["\"Time\"", TraditionalForm]},
  AxesOrigin->{1.5, 12.1},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.5, 2}, {12.050580379493908`, 12.729006948987099`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.565187724234375*^9, 3.565187847953125*^9, 
  3.56518891003125*^9, 3.56518898146875*^9, 3.56518921253125*^9, 
  3.565351092171875*^9, 3.566310626578125*^9, 3.566622682984375*^9, 
  3.56665511028125*^9, 3.566744325953125*^9, 3.56680807196875*^9, 
  3.566809393203125*^9, 3.566809464234375*^9, 3.566819114484375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"temp", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"NMinimize", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"STime", "[", 
        RowBox[{"850", ",", "850", ",", ".75", ",", "10", ",", 
         RowBox[{"RMSSpot7", "[", "850", "]"}], ",", "FWHMfixDS", ",", 
         "DefocMH", ",", "56.73", ",", "DAp", ",", "Relg", ",", "0", ",", 
         "6000", ",", "80"}], "]"}], ",", 
       RowBox[{
        RowBox[{"DAp", ">", "1"}], "&&", 
        RowBox[{"DAp", "<", "2"}]}]}], "}"}], ",", 
     RowBox[{"{", "DAp", "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"optimal", " ", "fiber", " ", "size", " ", "for", " ", "elgs"}], 
   " ", "*)"}]}]}], "Input",
 CellChangeTimes->{
  3.5666272633125*^9, {3.5666550973125*^9, 3.566655098265625*^9}, 
   3.566655151296875*^9, {3.56665521046875*^9, 3.566655211296875*^9}, {
   3.5666553715*^9, 3.566655377765625*^9}, {3.56680801534375*^9, 
   3.5668080206875*^9}, {3.56680943140625*^9, 3.566809436234375*^9}, {
   3.5668094689375*^9, 3.566809486203125*^9}, {3.56681906221875*^9, 
   3.566819062796875*^9}, {3.567085296890625*^9, 3.567085307421875*^9}, {
   3.567085677703125*^9, 3.567085682875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"12.0502144493221`", ",", 
   RowBox[{"{", 
    RowBox[{"DAp", "\[Rule]", "1.832742667734368`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.566655335265625*^9, 3.566655456640625*^9, 
  3.56674449084375*^9, 3.566808218375*^9, 3.56680955575*^9, 3.56681928875*^9, 
  3.56708588971875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DAp1", "=", 
  RowBox[{"DAp", "/.", 
   RowBox[{"temp", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.56682012053125*^9, 3.56682013946875*^9}, {
  3.5670853305*^9, 3.567085377390625*^9}, {3.567085432765625*^9, 
  3.567085440640625*^9}, {3.56708554475*^9, 3.5670855455*^9}, {
  3.567085588546875*^9, 3.567085591203125*^9}, {3.56708569046875*^9, 
  3.5670856951875*^9}}],

Cell[BoxData["1.832742667734368`"], "Output",
 CellChangeTimes->{3.567085442*^9, 3.56708554759375*^9, 3.56708567234375*^9, 
  3.567085889875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Time1", "=", 
  RowBox[{"temp", "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5668202715625*^9, 3.566820280984375*^9}, {
  3.567085717546875*^9, 3.567085720671875*^9}}],

Cell[BoxData["12.0502144493221`"], "Output",
 CellChangeTimes->{3.566820282671875*^9, 3.56708589003125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"STimeAM01", "[", 
   RowBox[{"850", ",", "850", ",", ".75", ",", "10", ",", 
    RowBox[{"RMSSpot7", "[", "850", "]"}], ",", "FWHMfixDS", ",", "DefocMH", 
    ",", "56.73", ",", "DAp1", ",", "Relg", ",", "0", ",", "6000", ",", 
    "80"}], "]"}], "/", "Time1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"AM", "+", 
    RowBox[{"0.1", " ", "time", " ", "penalty"}]}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{
  3.5668200038125*^9, {3.56682014559375*^9, 3.566820149765625*^9}, {
   3.566820288203125*^9, 3.566820289921875*^9}, {3.567085734125*^9, 
   3.567085755421875*^9}}],

Cell[BoxData["1.137259984609383`"], "Output",
 CellChangeTimes->{3.56682000803125*^9, 3.566820293203125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Quiet", "[", 
  RowBox[{"NMinimize", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"STimeAM01", "[", 
       RowBox[{"850", ",", "850", ",", ".75", ",", "10", ",", 
        RowBox[{"RMSSpot7", "[", "850", "]"}], ",", "FWHMfixDS", ",", 
        "DefocMH", ",", "56.73", ",", "DAp", ",", "Relg", ",", "0", ",", 
        "6000", ",", "80"}], "]"}], ",", 
      RowBox[{
       RowBox[{"DAp", ">", "1"}], "&&", 
       RowBox[{"DAp", "<", "2"}]}]}], "}"}], ",", 
    RowBox[{"{", "DAp", "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"AM", "+", 
    RowBox[{
    "0.1", " ", "effect", " ", "on", " ", "optimal", " ", "fiber", " ", 
     "size"}]}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{
  3.5666272633125*^9, {3.5666550973125*^9, 3.566655098265625*^9}, 
   3.566655151296875*^9, {3.56665521046875*^9, 3.566655211296875*^9}, {
   3.5666553715*^9, 3.566655377765625*^9}, {3.56680801534375*^9, 
   3.5668080206875*^9}, {3.56680943140625*^9, 3.566809436234375*^9}, {
   3.5668094689375*^9, 3.566809486203125*^9}, {3.56681906221875*^9, 
   3.566819062796875*^9}, {3.56681910990625*^9, 3.566819111140625*^9}, {
   3.566819365671875*^9, 3.56681936596875*^9}, {3.5670857714375*^9, 
   3.567085790671875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"13.698972413114314`", ",", 
   RowBox[{"{", 
    RowBox[{"DAp", "\[Rule]", "1.862902159303247`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5668192895*^9, 3.566819407078125*^9, 
  3.566819667296875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"STime", "[", 
   RowBox[{"850", ",", "850", ",", ".75", ",", "10", ",", 
    RowBox[{"RMSSpot7", "[", "850", "]"}], ",", "FWHMfixDS", ",", "DefocMH", 
    ",", "56.73", ",", "DAp1", ",", "Relgmax", ",", "0", ",", "6000", ",", 
    "80"}], "]"}], "/", "Time1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"elgmax", " ", "time", " ", "penalty"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{
  3.566820163390625*^9, {3.56682030690625*^9, 3.5668203170625*^9}, {
   3.5670858296875*^9, 3.567085849546875*^9}}],

Cell[BoxData["1.2042648816623744`"], "Output",
 CellChangeTimes->{3.5668202230625*^9, 3.566820320515625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Quiet", "[", 
  RowBox[{"NMinimize", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"STime", "[", 
       RowBox[{"850", ",", "850", ",", ".75", ",", "10", ",", 
        RowBox[{"RMSSpot7", "[", "850", "]"}], ",", "FWHMfixDS", ",", 
        "DefocMH", ",", "56.73", ",", "DAp", ",", "Relgmax", ",", "0", ",", 
        "6000", ",", "80"}], "]"}], ",", 
      RowBox[{
       RowBox[{"DAp", ">", "1"}], "&&", 
       RowBox[{"DAp", "<", "2"}]}]}], "}"}], ",", 
    RowBox[{"{", "DAp", "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "elgmax", " ", "effect", " ", "on", " ", "optimal", " ", "fiber", " ", 
    "size"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.566820074078125*^9, 3.566820082765625*^9}, {
  3.56708585878125*^9, 3.5670858686875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"14.425335329058058`", ",", 
   RowBox[{"{", 
    RowBox[{"DAp", "\[Rule]", "1.955770152804914`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.566820219921875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"STime", "[", 
   RowBox[{"850", ",", "850", ",", ".9", ",", "10", ",", 
    RowBox[{"RMSSpot7", "[", "850", "]"}], ",", "FWHMfixDS", ",", "DefocMH", 
    ",", "56.73", ",", "DAp1", ",", "Relg", ",", "0", ",", "6000", ",", 
    "80"}], "]"}], "/", "Time1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"0.9", "\"\< seeing time penalty \>"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.566820423375*^9, 3.566820423890625*^9}, {
  3.566820649546875*^9, 3.566820650625*^9}, {3.56708595484375*^9, 
  3.56708598584375*^9}}],

Cell[BoxData["1.2029581960512354`"], "Output",
 CellChangeTimes->{3.566820600421875*^9, 3.56682077925*^9, 
  3.567085965890625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Quiet", "[", 
  RowBox[{"NMinimize", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"STime", "[", 
       RowBox[{"850", ",", "850", ",", ".9", ",", "10", ",", 
        RowBox[{"RMSSpot7", "[", "850", "]"}], ",", "FWHMfixDS", ",", 
        "DefocMH", ",", "56.73", ",", "DAp", ",", "Relg", ",", "0", ",", 
        "6000", ",", "80"}], "]"}], ",", 
      RowBox[{
       RowBox[{"DAp", ">", "1"}], "&&", 
       RowBox[{"DAp", "<", "2"}]}]}], "}"}], ",", 
    RowBox[{"{", "DAp", "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"0.9", "\"\< seeing effect on optimal fiber size \>"}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5668204070625*^9, 3.566820407578125*^9}, {
  3.5668206418125*^9, 3.5668206421875*^9}, {3.56708599590625*^9, 
  3.567086005390625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"14.407119792626142`", ",", 
   RowBox[{"{", 
    RowBox[{"DAp", "\[Rule]", "1.9575397878992506`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5668205976875*^9, 3.566820776421875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"STime", "[", 
   RowBox[{
   "850", ",", "850", ",", ".75", ",", "10", ",", "20", ",", "FWHMfixDS", ",",
     "DefocMH", ",", "56.73", ",", "DAp1", ",", "Relg", ",", "0", ",", "6000",
     ",", "80"}], "]"}], "/", "Time1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"20", "um", " ", "rms", " ", "spot", " ", "time", " ", "penalty"}],
    " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.566820868375*^9, 3.566820876546875*^9}, {
  3.56682122209375*^9, 3.56682122475*^9}, {3.5670867465625*^9, 
  3.567086760203125*^9}}],

Cell[BoxData["1.074831419879805`"], "Output",
 CellChangeTimes->{{3.56682098809375*^9, 3.566820990859375*^9}, 
   3.5668212326875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Quiet", "[", 
  RowBox[{"NMinimize", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"STime", "[", 
       RowBox[{
       "850", ",", "850", ",", ".75", ",", "10", ",", "20", ",", "FWHMfixDS", 
        ",", "DefocMH", ",", "56.73", ",", "DAp", ",", "Relg", ",", "0", ",", 
        "6000", ",", "80"}], "]"}], ",", 
      RowBox[{
       RowBox[{"DAp", ">", "1"}], "&&", 
       RowBox[{"DAp", "<", "2"}]}]}], "}"}], ",", 
    RowBox[{"{", "DAp", "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "20", "um", " ", "rms", " ", "spot", " ", "effect", " ", "on", " ", 
    "optimal", " ", "fiber", " ", "size"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5668204070625*^9, 3.566820407578125*^9}, {
  3.5668206418125*^9, 3.5668206421875*^9}, {3.566820842515625*^9, 
  3.566820853953125*^9}, {3.567086787125*^9, 3.56708679665625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"12.929642959573037`", ",", 
   RowBox[{"{", 
    RowBox[{"DAp", "\[Rule]", "1.8971179152058353`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.566820850484375*^9, 3.56682098534375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Quiet", "[", 
  RowBox[{"NMinimize", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"STime", "[", 
       RowBox[{"850", ",", "850", ",", ".75", ",", "10", ",", 
        RowBox[{"RMSSpot7", "[", "850", "]"}], ",", ".4", ",", "DefocMH", ",",
         "56.73", ",", "DAp", ",", "Relg", ",", "0", ",", "6000", ",", "80"}],
        "]"}], ",", 
      RowBox[{
       RowBox[{"DAp", ">", "1"}], "&&", 
       RowBox[{"DAp", "<", "2"}]}]}], "}"}], ",", 
    RowBox[{"{", "DAp", "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "0.4", " ", "fixed", " ", "error", " ", "on", " ", "optimal", " ", "fiber",
     " ", "size"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5668204070625*^9, 3.566820407578125*^9}, {
  3.5668206418125*^9, 3.5668206421875*^9}, {3.566820842515625*^9, 
  3.566820853953125*^9}, {3.5668212874375*^9, 3.566821296*^9}, {
  3.567086843203125*^9, 3.56708685709375*^9}, {3.567086908265625*^9, 
  3.567086912203125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"11.495495819213351`", ",", 
   RowBox[{"{", 
    RowBox[{"DAp", "\[Rule]", "1.7903224333652032`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.566821433703125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"STime", "[", 
   RowBox[{"850", ",", "850", ",", ".75", ",", "10", ",", 
    RowBox[{"RMSSpot7", "[", "850", "]"}], ",", ".4", ",", "DefocMH", ",", 
    "56.73", ",", "DAp1", ",", "Relg", ",", "0", ",", "6000", ",", "80"}], 
   "]"}], "/", "Time1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"0.4", " ", "fixed", " ", "error", " ", "time", " ", "benefit"}], 
   " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.566821321328125*^9, 3.566821325875*^9}, {
  3.5670868745*^9, 3.567086915515625*^9}}],

Cell[BoxData["0.9547232816454996`"], "Output",
 CellChangeTimes->{3.566821436671875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Quiet", "[", 
  RowBox[{"NMinimize", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"STime", "[", 
       RowBox[{"850", ",", "850", ",", ".75", ",", "20", ",", 
        RowBox[{"RMSSpot7", "[", "850", "]"}], ",", "FWHMfixDS", ",", 
        "DefocMH", ",", "56.73", ",", "DAp", ",", "Relg", ",", "0", ",", 
        "6000", ",", "80"}], "]"}], ",", 
      RowBox[{
       RowBox[{"DAp", ">", "1"}], "&&", 
       RowBox[{"DAp", "<", "2"}]}]}], "}"}], ",", 
    RowBox[{"{", "DAp", "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "20", "um", " ", "decentering", " ", "error", " ", "effect", " ", "on", 
    " ", "optimal", " ", "fiber", " ", "size"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5668204070625*^9, 3.566820407578125*^9}, {
  3.5668206418125*^9, 3.5668206421875*^9}, {3.566820842515625*^9, 
  3.566820853953125*^9}, {3.5668212874375*^9, 3.566821296*^9}, {
  3.56682143384375*^9, 3.56682145359375*^9}, {3.56708694875*^9, 
  3.56708696040625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"13.629792701037248`", ",", 
   RowBox[{"{", 
    RowBox[{"DAp", "\[Rule]", "1.9595608875775117`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.56682159334375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"STime", "[", 
   RowBox[{"850", ",", "850", ",", ".75", ",", "20", ",", 
    RowBox[{"RMSSpot7", "[", "850", "]"}], ",", "FWHMfixDS", ",", "DefocMH", 
    ",", "56.73", ",", "DAp1", ",", "Relg", ",", "0", ",", "6000", ",", 
    "80"}], "]"}], "/", "Time1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "20", "um", " ", "decentering", " ", "error", " ", "time", " ", 
    "penalty"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.566821321328125*^9, 3.566821325875*^9}, {
  3.566821441640625*^9, 3.566821450328125*^9}, {3.567086969296875*^9, 
  3.567086983140625*^9}}],

Cell[BoxData["1.1385772225079642`"], "Output",
 CellChangeTimes->{3.566821596109375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Quiet", "[", 
  RowBox[{"NMinimize", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"STime", "[", 
       RowBox[{"850", ",", "850", ",", ".75", ",", "10", ",", 
        RowBox[{"RMSSpot7", "[", "850", "]"}], ",", "FWHMfixDS", ",", 
        "DefocMH", ",", "56.73", ",", "DAp", ",", "Relg", ",", "0", ",", 
        "7500", ",", "80"}], "]"}], ",", 
      RowBox[{
       RowBox[{"DAp", ">", "1"}], "&&", 
       RowBox[{"DAp", "<", "2"}]}]}], "}"}], ",", 
    RowBox[{"{", "DAp", "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "higher", " ", "resn", " ", "effect", " ", "on", " ", "optimal", " ", 
    "fiber", " ", "size"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5668204070625*^9, 3.566820407578125*^9}, {
  3.5668206418125*^9, 3.5668206421875*^9}, {3.566820842515625*^9, 
  3.566820853953125*^9}, {3.5668212874375*^9, 3.566821296*^9}, {
  3.56682143384375*^9, 3.56682145359375*^9}, {3.5668214994375*^9, 
  3.566821505015625*^9}, {3.567087012578125*^9, 3.567087023375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"11.620481654637409`", ",", 
   RowBox[{"{", 
    RowBox[{"DAp", "\[Rule]", "1.8718046945955167`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.56682177078125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"STime", "[", 
   RowBox[{"850", ",", "850", ",", ".75", ",", "10", ",", 
    RowBox[{"RMSSpot7", "[", "850", "]"}], ",", "FWHMfixDS", ",", "DefocMH", 
    ",", "56.73", ",", "DAp1", ",", "Relg", ",", "0", ",", "7500", ",", 
    "80"}], "]"}], "/", "Time1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"higher", " ", "resn", " ", "time", " ", "benefit"}], " ", 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.566821321328125*^9, 3.566821325875*^9}, {
  3.566821441640625*^9, 3.566821450328125*^9}, {3.566821496125*^9, 
  3.566821510859375*^9}, {3.567087036140625*^9, 3.56708705215625*^9}}],

Cell[BoxData["0.964948246086557`"], "Output",
 CellChangeTimes->{3.566821773734375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", "  ", 
  RowBox[{"end", " ", "elg", " ", "tests"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.56682061053125*^9, 3.566820615703125*^9}, {
  3.567087345*^9, 3.56708734615625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"STime", "[", 
    RowBox[{"800", ",", "800", ",", ".75", ",", "10", ",", 
     RowBox[{"RMSSpot7", "[", "800", "]"}], ",", "FWHMfixDS", ",", "DefocMH", 
     ",", "56.73", ",", "DAp", ",", "0", ",", "Rlrg", ",", "6000", ",", 
     "200"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"DAp", ",", "1.5", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"\"\<Fiber Diam\>\"", ",", "\"\<Time\>\""}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
   "survey", " ", "time", " ", "vs", " ", "fiber", " ", "size", " ", "for", 
    " ", "lrgs"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.56518743709375*^9, 3.56518746646875*^9}, {
  3.565187590375*^9, 3.56518759528125*^9}, {3.565187707671875*^9, 
  3.565187788234375*^9}, {3.56518812803125*^9, 3.56518813096875*^9}, {
  3.565188877375*^9, 3.565188877953125*^9}, {3.565188922421875*^9, 
  3.565188923*^9}, {3.56518908640625*^9, 3.5651891205*^9}, {
  3.566655069421875*^9, 3.5666550740625*^9}, {3.566807946734375*^9, 
  3.566808002328125*^9}, {3.566809351515625*^9, 3.5668093554375*^9}, {
  3.566809420734375*^9, 3.566809423984375*^9}, {3.56680946534375*^9, 
  3.566809481*^9}, {3.56680953290625*^9, 3.566809559*^9}, {
  3.567087089484375*^9, 3.567087096546875*^9}, {3.5670873610625*^9, 
  3.567087361875*^9}, {3.567089985078125*^9, 3.56708998546875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000263157895`, 16.20028137675176}, {1.5253106420756577`, 
     16.077848086641374`}, {1.5527502499259862`, 15.958683669356347`}, {
     1.5783714814457226`, 15.859447967183378`}, {1.603490126108551, 
     15.77282773432387}, {1.6307377628618398`, 15.690182856774483`}, {
     1.6561670232845362`, 15.623136657836673`}, {1.683725275797693, 
     15.56090873219799}, {1.7107809414539419`, 15.509850230158273`}, {
     1.7360182307795984`, 15.470756922756292`}, {1.7633845121957155`, 
     15.437243517279583`}, {1.7889324172812402`, 15.413926508580172`}, {
     1.813977735509857, 15.398219690576642`}, {1.841152045828934, 
     15.388856451124722`}, {1.866507979817419, 15.38703995783406}, {
     1.893992905896364, 15.392316260146115`}, {1.9209752451184012`, 
     15.40454627617493}, {1.9461392080098463`, 15.422013536265927`}, {
     1.9734321629917517`, 15.447335623737702`}, {1.9989067416430648`, 
     15.476754999530511`}, {1.9999999736842105`, 15.478139626740623`}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Fiber Diam\"", TraditionalForm], 
    FormBox["\"Time\"", TraditionalForm]},
  AxesOrigin->{1.5, 15.4},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.5, 2}, {15.38703995783406, 16.20028137675176}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.565187724234375*^9, 3.565187847953125*^9, 
  3.56518891003125*^9, 3.56518898146875*^9, 3.56518921253125*^9, 
  3.565351092171875*^9, 3.566310626578125*^9, 3.566622682984375*^9, 
  3.56665511028125*^9, 3.566744325953125*^9, 3.56680807196875*^9, 
  3.566809393203125*^9, 3.566809464234375*^9, 3.566809597765625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Quiet", "[", 
  RowBox[{"NMinimize", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"STime", "[", 
       RowBox[{"800", ",", "800", ",", ".75", ",", "10", ",", 
        RowBox[{"RMSSpot7", "[", "800", "]"}], ",", "FWHMfixDS", ",", 
        "DefocMH", ",", "56.73", ",", "DAp", ",", "0", ",", "Rlrg", ",", 
        "6000", ",", "200"}], "]"}], ",", 
      RowBox[{
       RowBox[{"DAp", ">", "1"}], "&&", 
       RowBox[{"DAp", "<", "2"}]}]}], "}"}], ",", 
    RowBox[{"{", "DAp", "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"optimal", " ", "fiber", " ", "size", " ", "for", " ", "lrgs"}], 
   " ", "*)"}]}]}], "Input",
 CellChangeTimes->{
  3.5666272633125*^9, {3.5666550973125*^9, 3.566655098265625*^9}, 
   3.566655151296875*^9, {3.56665521046875*^9, 3.566655211296875*^9}, {
   3.5666553715*^9, 3.566655377765625*^9}, {3.56680801534375*^9, 
   3.5668080206875*^9}, {3.56680943140625*^9, 3.566809436234375*^9}, {
   3.5668094689375*^9, 3.566809486203125*^9}, 3.566809573375*^9, {
   3.566819202265625*^9, 3.566819203*^9}, {3.567087121265625*^9, 
   3.5670871268125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"15.38688005650626`", ",", 
   RowBox[{"{", 
    RowBox[{"DAp", "\[Rule]", "1.860864917783974`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.56680966290625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Quiet", "[", 
  RowBox[{"NMinimize", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"STimeAM01", "[", 
       RowBox[{"800", ",", "800", ",", ".75", ",", "10", ",", 
        RowBox[{"RMSSpot7", "[", "800", "]"}], ",", "FWHMfixDS", ",", 
        "DefocMH", ",", "56.73", ",", "DAp", ",", "0", ",", "Rlrg", ",", 
        "6000", ",", "200"}], "]"}], ",", 
      RowBox[{
       RowBox[{"DAp", ">", "1"}], "&&", 
       RowBox[{"DAp", "<", "2"}]}]}], "}"}], ",", 
    RowBox[{"{", "DAp", "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"AM", "+", 
    RowBox[{"0.1", " ", "time", " ", "penalty", " ", "for", " ", "lrgs"}]}], 
   " ", "*)"}]}]}], "Input",
 CellChangeTimes->{
  3.5666272633125*^9, {3.5666550973125*^9, 3.566655098265625*^9}, 
   3.566655151296875*^9, {3.56665521046875*^9, 3.566655211296875*^9}, {
   3.5666553715*^9, 3.566655377765625*^9}, {3.56680801534375*^9, 
   3.5668080206875*^9}, {3.56680943140625*^9, 3.566809436234375*^9}, {
   3.5668094689375*^9, 3.566809486203125*^9}, 3.566809573375*^9, {
   3.566819208859375*^9, 3.5668192114375*^9}, {3.567087169359375*^9, 
   3.56708716984375*^9}, {3.56708720509375*^9, 3.5670872321875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"17.47484607579854`", ",", 
   RowBox[{"{", 
    RowBox[{"DAp", "\[Rule]", "1.90116949756922`"}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{3.56708736640625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"STime", "[", 
    RowBox[{"350", ",", "400", ",", ".75", ",", "10", ",", 
     RowBox[{"RMSSpot7", "[", "350", "]"}], ",", "FWHMfixDS", ",", "DefocMH", 
     ",", "56.73", ",", "DAp", ",", "0", ",", "0", ",", "7500", ",", "20"}], 
    "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"DAp", ",", "1.5", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"\"\<Fiber Diam\>\"", ",", "\"\<Time\>\""}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
   "survey", " ", "time", " ", "vs", " ", "fiber", " ", "size", " ", "for", 
    " ", "qsos", " ", "at", " ", "350", "nm"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.56518743709375*^9, 3.56518746646875*^9}, {
   3.565187590375*^9, 3.56518759528125*^9}, {3.565187707671875*^9, 
   3.565187788234375*^9}, {3.56518812803125*^9, 3.56518813096875*^9}, {
   3.565188877375*^9, 3.565188877953125*^9}, {3.565188922421875*^9, 
   3.565188923*^9}, {3.56518908640625*^9, 3.5651891205*^9}, {
   3.566655069421875*^9, 3.5666550740625*^9}, {3.566807946734375*^9, 
   3.566808002328125*^9}, {3.566809351515625*^9, 3.5668093554375*^9}, {
   3.566809420734375*^9, 3.566809423984375*^9}, {3.56680946534375*^9, 
   3.566809481*^9}, {3.56680953290625*^9, 3.566809559*^9}, {
   3.566809682703125*^9, 3.56680971296875*^9}, {3.566809865640625*^9, 
   3.566809865984375*^9}, {3.56708727203125*^9, 3.5670872793125*^9}, {
   3.567087379859375*^9, 3.567087384640625*^9}, 3.5670889126875*^9, {
   3.567090000625*^9, 3.567090001140625*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000263157895`, 70.49948081430651}, {1.5253106420756577`, 
     70.17501699879897}, {1.5527502499259862`, 69.88431300987342}, {
     1.5783714814457226`, 69.6677556354994}, {1.603490126108551, 
     69.50480849425158}, {1.6307377628618398`, 69.38119604025309}, {
     1.6561670232845362`, 69.31392489629594}, {1.683725275797693, 
     69.29161103904656}, {1.7107809414539419`, 69.31921827130685}, {
     1.7360182307795984`, 69.38784012059473}, {1.7633845121957155`, 
     69.50768318233017}, {1.7889324172812402`, 69.66111938447695}, {
     1.813977735509857, 69.84955229590612}, {1.841152045828934, 
     70.09563301781043}, {1.866507979817419, 70.36352753247803}, {
     1.893992905896364, 70.69485391756403}, {1.9209752451184012`, 
     71.06082688221606}, {1.9461392080098463`, 71.43790880902247}, {
     1.9734321629917517`, 71.88537351282305}, {1.9989067416430648`, 
     72.33870875028768}, {1.9999999736842105`, 72.35892843289923}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Fiber Diam\"", TraditionalForm], 
    FormBox["\"Time\"", TraditionalForm]},
  AxesOrigin->{1.5, 69.5},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.5, 2}, {69.29161103904656, 72.35892843289923}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 Evaluatable->False,
 CellChangeTimes->{3.565187724234375*^9, 3.565187847953125*^9, 
  3.56518891003125*^9, 3.56518898146875*^9, 3.56518921253125*^9, 
  3.565351092171875*^9, 3.566310626578125*^9, 3.566622682984375*^9, 
  3.56665511028125*^9, 3.566744325953125*^9, 3.56680807196875*^9, 
  3.566809393203125*^9, 3.566809464234375*^9, 3.566809597765625*^9, 
  3.56680974909375*^9, 3.56680997365625*^9, 3.56708904690625*^9},
 ImageSize->{364, -197},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Quiet", "[", 
  RowBox[{"NMinimize", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"STimeAll", "[", 
       RowBox[{"350", ",", "400", ",", ".75", ",", "10", ",", 
        RowBox[{"RMSSpot7", "[", "350", "]"}], ",", "FWHMfixDS", ",", 
        "DefocMH", ",", "56.73", ",", "DAp", ",", "0", ",", "0", ",", "7500", 
        ",", "20"}], "]"}], ",", 
      RowBox[{
       RowBox[{"DAp", ">", "1"}], "&&", 
       RowBox[{"DAp", "<", "2"}]}]}], "}"}], ",", 
    RowBox[{"{", "DAp", "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "optimal", " ", "fiber", " ", "size", " ", "for", " ", "qsos", " ", "at", 
    " ", "350", "nm"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{
  3.5666272633125*^9, {3.5666550973125*^9, 3.566655098265625*^9}, 
   3.566655151296875*^9, {3.56665521046875*^9, 3.566655211296875*^9}, {
   3.5666553715*^9, 3.566655377765625*^9}, {3.56680801534375*^9, 
   3.5668080206875*^9}, {3.56680943140625*^9, 3.566809436234375*^9}, {
   3.5668094689375*^9, 3.566809486203125*^9}, 3.566809573375*^9, 
   3.566809729875*^9, {3.566809852171875*^9, 3.56680985259375*^9}, {
   3.567087405203125*^9, 3.567087410984375*^9}, {3.56708746109375*^9, 
   3.56708746590625*^9}, 3.56708892603125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"69.29149669607204`", ",", 
   RowBox[{"{", 
    RowBox[{"DAp", "\[Rule]", "1.6818670707411858`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.566809821078125*^9, 3.566810075328125*^9, 
  3.56708917771875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"STime", "[", 
    RowBox[{"450", ",", "400", ",", ".75", ",", "10", ",", 
     RowBox[{"RMSSpot7", "[", "450", "]"}], ",", "FWHMfixDS", ",", "DefocMH", 
     ",", "56.73", ",", "DAp", ",", "0", ",", "0", ",", "7500", ",", "20"}], 
    "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"DAp", ",", "1.5", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"\"\<Fiber Diam\>\"", ",", "\"\<Time\>\""}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
   "survey", " ", "time", " ", "vs", " ", "fiber", " ", "size", " ", "for", 
    " ", "qsos", " ", "at", " ", "450", "nm"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.56518743709375*^9, 3.56518746646875*^9}, {
   3.565187590375*^9, 3.56518759528125*^9}, {3.565187707671875*^9, 
   3.565187788234375*^9}, {3.56518812803125*^9, 3.56518813096875*^9}, {
   3.565188877375*^9, 3.565188877953125*^9}, {3.565188922421875*^9, 
   3.565188923*^9}, {3.56518908640625*^9, 3.5651891205*^9}, {
   3.566655069421875*^9, 3.5666550740625*^9}, {3.566807946734375*^9, 
   3.566808002328125*^9}, {3.566809351515625*^9, 3.5668093554375*^9}, {
   3.566809420734375*^9, 3.566809423984375*^9}, {3.56680946534375*^9, 
   3.566809481*^9}, {3.56680953290625*^9, 3.566809559*^9}, {
   3.566809682703125*^9, 3.56680971296875*^9}, {3.566809753578125*^9, 
   3.5668097593125*^9}, {3.566809856765625*^9, 3.566809857125*^9}, 
   3.56708744225*^9, {3.56708751771875*^9, 3.567087522625*^9}, 
   3.5670889315625*^9, 3.567090022234375*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000263157895`, 27.771317085169535`}, {1.5253106420756577`,
      27.8047896903713}, {1.5527502499259862`, 27.86474590536157}, {
     1.5783714814457226`, 27.942275392497873`}, {1.603490126108551, 
     28.037912598487246`}, {1.6307377628618398`, 28.16306241815475}, {
     1.6561670232845362`, 28.299483359744166`}, {1.683725275797693, 
     28.468245576465577`}, {1.7107809414539419`, 28.654679892859818`}, {
     1.7360182307795984`, 28.84678929721928}, {1.7633845121957155`, 
     29.074652601677396`}, {1.7889324172812402`, 29.305484210427945`}, {
     1.813977735509857, 29.54854927779183}, {1.841152045828934, 
     29.83087246989306}, {1.866507979817419, 30.11161026777515}, {
     1.893992905896364, 30.4346531238427}, {1.9209752451184012`, 
     30.77063533951682}, {1.9461392080098463`, 31.100727531313403`}, {
     1.9734321629917517`, 31.47696658421185}, {1.9989067416430648`, 
     31.845211099671207`}, {1.9999999736842105`, 31.861382750513453`}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Fiber Diam\"", TraditionalForm], 
    FormBox["\"Time\"", TraditionalForm]},
  AxesOrigin->{1.5, 28.},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.5, 2}, {27.771317085169535`, 31.861382750513453`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.567089233609375*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000263157895`, 59.06405882670274}, {1.5253106420756577`, 
     58.8922582084048}, {1.5527502499259862`, 58.752246435600064`}, {
     1.5783714814457226`, 58.66300130507662}, {1.603490126108551, 
     58.61274346956157}, {1.6307377628618398`, 58.59822278139516}, {
     1.6561670232845362`, 58.620771660352474`}, {1.683725275797693, 
     58.683073470216804`}, {1.7107809414539419`, 58.78118282315138}, {
     1.7360182307795984`, 58.9045764562287}, {1.7633845121957155`, 
     59.07204032422825}, {1.7889324172812402`, 59.259049161636646`}, {
     1.813977735509857, 59.470325189702045`}, {1.841152045828934, 
     59.73003515883441}, {1.866507979817419, 60.00026502443371}, {
     1.893992905896364, 60.32287787169824}, {1.9209752451184012`, 
     60.66896936416587}, {1.9461392080098463`, 61.01742257719163}, {
     1.9734321629917517`, 61.42283967031481}, {1.9989067416430648`, 
     61.826595025179984`}, {1.9999999736842105`, 61.84446341466107}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Fiber Diam\"", TraditionalForm], 
    FormBox["\"Time\"", TraditionalForm]},
  AxesOrigin->{1.5, 59.},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.5, 2}, {58.59822278139516, 61.84446341466107}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.565187724234375*^9, 3.565187847953125*^9, 
  3.56518891003125*^9, 3.56518898146875*^9, 3.56518921253125*^9, 
  3.565351092171875*^9, 3.566310626578125*^9, 3.566622682984375*^9, 
  3.56665511028125*^9, 3.566744325953125*^9, 3.56680807196875*^9, 
  3.566809393203125*^9, 3.566809464234375*^9, 3.566809597765625*^9, 
  3.5668098548125*^9, 3.566810150046875*^9, 3.567087442265625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Quiet", "[", 
  RowBox[{"NMinimize", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"STime", "[", 
       RowBox[{"450", ",", "400", ",", ".75", ",", "10", ",", 
        RowBox[{"RMSSpot7", "[", "450", "]"}], ",", "FWHMfixDS", ",", 
        "DefocMH", ",", "56.73", ",", "DAp", ",", "0", ",", "0", ",", "7500", 
        ",", "20"}], "]"}], ",", 
      RowBox[{
       RowBox[{"DAp", ">", "1"}], "&&", 
       RowBox[{"DAp", "<", "2"}]}]}], "}"}], ",", 
    RowBox[{"{", "DAp", "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "optimal", " ", "fiber", " ", "size", " ", "for", " ", "qsos", " ", "at", 
    " ", "450", "nm"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{
  3.5666272633125*^9, {3.5666550973125*^9, 3.566655098265625*^9}, 
   3.566655151296875*^9, {3.56665521046875*^9, 3.566655211296875*^9}, {
   3.5666553715*^9, 3.566655377765625*^9}, {3.56680801534375*^9, 
   3.5668080206875*^9}, {3.56680943140625*^9, 3.566809436234375*^9}, {
   3.5668094689375*^9, 3.566809486203125*^9}, 3.566809573375*^9, 
   3.566809729875*^9, {3.56680977934375*^9, 3.566809783046875*^9}, {
   3.566809878609375*^9, 3.566809878953125*^9}, 3.567087442265625*^9, {
   3.56708747296875*^9, 3.5670874779375*^9}, 3.567088940625*^9, 
   3.567090023328125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"27.759500020572975`", ",", 
   RowBox[{"{", 
    RowBox[{"DAp", "\[Rule]", "1.4738778976047748`"}], "}"}]}], 
  "}"}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.566809939796875*^9, 3.5668103035625*^9, 
  3.567087442265625*^9, 3.56708943475*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"58.597811601213195`", ",", 
   RowBox[{"{", 
    RowBox[{"DAp", "\[Rule]", "1.6268369092506025`"}], "}"}]}], 
  "}"}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.566809939796875*^9, 3.5668103035625*^9, 
  3.567087442265625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"STime", "[", 
    RowBox[{"500", ",", "400", ",", ".75", ",", "10", ",", 
     RowBox[{"RMSSpot7", "[", "500", "]"}], ",", "FWHMfixDS", ",", "DefocMH", 
     ",", "56.73", ",", "DAp", ",", "0", ",", "0", ",", "7500", ",", "20"}], 
    "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"DAp", ",", "1.5", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"\"\<Fiber Diam\>\"", ",", "\"\<Time\>\""}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
   "survey", " ", "time", " ", "vs", " ", "fiber", " ", "size", " ", "for", 
    " ", "qsos", " ", "at", " ", "500", "nm"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.56518743709375*^9, 3.56518746646875*^9}, {
   3.565187590375*^9, 3.56518759528125*^9}, {3.565187707671875*^9, 
   3.565187788234375*^9}, {3.56518812803125*^9, 3.56518813096875*^9}, {
   3.565188877375*^9, 3.565188877953125*^9}, {3.565188922421875*^9, 
   3.565188923*^9}, {3.56518908640625*^9, 3.5651891205*^9}, {
   3.566655069421875*^9, 3.5666550740625*^9}, {3.566807946734375*^9, 
   3.566808002328125*^9}, {3.566809351515625*^9, 3.5668093554375*^9}, {
   3.566809420734375*^9, 3.566809423984375*^9}, {3.56680946534375*^9, 
   3.566809481*^9}, {3.56680953290625*^9, 3.566809559*^9}, {
   3.566809682703125*^9, 3.56680971296875*^9}, {3.566809753578125*^9, 
   3.5668097593125*^9}, {3.566809856765625*^9, 3.566809857125*^9}, {
   3.566809974796875*^9, 3.56680997934375*^9}, 3.56708744228125*^9, {
   3.5670875303125*^9, 3.567087535375*^9}, 3.567088957171875*^9, 
   3.567090024390625*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000263157895`, 27.379545580102157`}, {1.5253106420756577`,
      27.29838684232725}, {1.5527502499259862`, 27.236141038733617`}, {
     1.5783714814457226`, 27.201288850028433`}, {1.603490126108551, 
     27.18816900526161}, {1.6307377628618398`, 27.196731411611072`}, {
     1.6561670232845362`, 27.22547102304836}, {1.683725275797693, 
     27.278577340944608`}, {1.7107809414539419`, 27.35234201082744}, {
     1.7360182307795984`, 27.439989993580244`}, {1.7633845121957155`, 
     27.55512227332804}, {1.7889324172812402`, 27.681091758421104`}, {
     1.813977735509857, 27.821596150367448`}, {1.841152045828934, 
     27.992784722002302`}, {1.866507979817419, 28.169850617879227`}, {
     1.893992905896364, 28.380428392630233`}, {1.9209752451184012`, 
     28.60580019556896}, {1.9461392080098463`, 28.83246039818613}, {
     1.9734321629917517`, 29.096116398394628`}, {1.9989067416430648`, 
     29.358815210844252`}, {1.9999999736842105`, 29.3704461253894}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Fiber Diam\"", TraditionalForm], 
    FormBox["\"Time\"", TraditionalForm]},
  AxesOrigin->{1.5, 27.5},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.5, 2}, {27.18816900526161, 29.3704461253894}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.56708949596875*^9}],

Cell[GraphicsData["Metafile", "\<\
CF5dJ6E]HGAYHf4PEfU^I6mgLb15CDHPAVmbKF5d0@0003ZH0@0006`000120000P4H00:T1000jA`00
:0D000221@188@00M9050215CDH00040V3X003l200030000000000000000000000D0020300000@00
X0000000000000000000003X0`00L@804@0000`0000800002@000100001X0@00^@0000/0000@0000
J0400;T0000U000030000000081<0000I00004800020AP00Z@4003Q700120000P4H006P1002i0000
8@3`0000000000000020?`00000000000020?`000000000000000000000000000000000000000000
9@0000`000000020B`000400000`00001@000200000100000@00010000120000P4H00:X1000iA`00
@P000816002Z0@00>DL004H0002d1`00Y@L005ETU5Sd0@00Y@L009870013IFa/Fd9_N4AQM65K2R17
LV5`J6USLd9_N5]kNgd/87]m;20:820PNdQeIE/`;SHg;20`;SH/830^=Ud/85AXJF=[KVEcLe]<HG9W
IEd/80XP820PC6U^ID9_N5]kNc4^=C0`<30`<38f<c4e=cPi=F0/83De;STb<CHf>3Tf<3<a=cDeOB`P
Nc4^=C8e<c4`=S@b<3Le=SDg=f0/83De;SDh<cTb=S4i=S8b<CPg=61m;21k2R0P820P<Bhe=C8g=C0b
=3Ti<SDi>3HbH2`P=CD^<SHf=S4h<c0a>C8f=3Em;21k<Bhe=cPc=c4d>34d=3Dg<S8fH2`P=CD^<34d
<30i>3Da<CPc<c=m;21k2R0P820P<Bhf<3<d>C0a<SHa<3Pe=C4/83Dd;SP`=C@a<STg=38e=3Ph=F1m
;21k<Bhf<c0g<cLg=S8h=S4h<cThH2`P=C@^=S8`>C<d<c0g>3Td=S9m;21k2R0P820P<Bhf=CHa=SL`
<S<b>3@e<cHbH2`P=C@^=3Pf<cDb>CPc<cLi=gd/87/a;SHh<cLb=C8g=CLi=cHi<b`P=C@^<cLi=cLc
<c8h<3Ta=c=m;21k2R0P820P<Bhg<C0g>30i=34d=C<i=34iH2`P=C@^<c4c<STi<3<i<SLh<3Um;21k
<Bhg<cH`<CPb<c0g=cTe>CPdH2`P=C@^<SPd<3Pi<CDe<c@e>CLdH7d/87/:820P820a;SLf<c<h=3Da
<S4i=CLa=CEP;20e=2hb>3Hi<3Dh=30`=SDd<CEPOB`PNc4^=cPh>C<b=34g<SPa<S@`<V0/83Dd;S<b
<3Pc=cLi=cDf<c@hOB`PN`XP820P834^>34c>CLg=c<e=C0i>3Dg;20e=2hc>38e<3Lg<38h=S0`<gd/
87/a;SPd<C4e<S0d=CPb>3Tc=2`P=C@^=3P`<SL`<cHe<S8c<CQm;21k<Bhh=SHe<3Li=cTh<CLd<CT/
2R0P820P83Dd;SDi>CHb<3<e>3Te=c<d=F1m;21k<Bhh>C<i>C8i<3Dh>CHc=S@/83Dd;SLe>3P`=S4a
>3Lb=C<dOB`PNc4^>C8`>CLe<S@e<C4h=30a<V0/80XP820P83Dd;STd=3@e=S0`>CHc=C0`=F1m;21k
<Bhi=3Ha<cTb<3P`<3Th=3HcH2`P=CD^<C@c<CLe=C<h=STa<S9m;21k<Bhi=c<d<c8a=S8i>C4g=C4g
H2`P2R0P820P=CD^<cPe>CHd<C4a=c4`>3<dH7d/87/a;STi>3T`=SLd<CHd<c0f=3QP;20e=Bhf<cLf
<CPi<CTi<CPc=gd/87/a;STi>CTi>CTg<cHh=38a<3EP;20:820P820e=Bhf=3Pi=C4i=S4`=S@f>7em
GGem;0XP845cL6ESM59QM6U_;Ci>@f5SJ6EKAfm/I6E^DV5dJFmN:2da:B`P<2hf<CP`<c<i>3Pg=3Th
>C@hGB`:8211N6Ec;CiDLWEU;0XP845hIG=<HF9UK2dnN`XP820PAVmbKD9_N5/RG296JF9ULR14JF5]
G28R;21DLV5TJGAYKfiQK4I_LVeM;20:820P84I_LVe2KgQK8U`RE6U]IE`R8R`PE79QI6UdJFm^HFa6
Kg9]GGd/2R0P@GQULdmbJFMYKRdnNc4^=B`P=C@^=Gd/2R0P@GQULe=dNFaU;Ci4JG9UHgAYMVEK2R0P
821DJ6USJfiULg=KC65bIfEM;20a=2`P@Vm/I5d/2R0PD6a_M59QKVMU;CikNc4^=B`P<Wd/87/e=2hb
>3@`>3Ta=CDc=3Di=cAP;20e=Bhi<S4f=SPi=S0c<CLe=Gem;0XP851/KgABHFiWID=/JG1`JFiW;CiD
LWEU;0XP851/KgABHFiWIE1QI6AYKVL]?W/:820P85=SHFaUI5/`;S0bGB`P2R0P821CHf5/IFAK<2h`
<UemGEd/829?MGA`MG@R;0XP@fE/K4=XHFiWIEAYKFEc;Cik<bhe=SDa>3Lg<S@b<c@c=cDZGST/83<^
=CHe<CPg>3@g>CDc<C8e:Uhi;20c;SDf=C4h>3Ta<30c<C8e:Uhi;20:820c;SDf=C4h>3Th<C@f>3Le
:Uhi;20c;SDf=C4h>C8a<SDc<C8e:Uhi;20c;SDf=C<e<C0i<S4g<CPg=BYN>B`P<bhe=SHc<C0f<SHe
=cPa<SDZGST/80XP83<^=CHf=S8b=SPb>CPd<cLe:Uhi;20c;SDf=SHe=C4a<38h<C8e:Uhi;20c;SDf
=SLd=3<b=CTe<c4b=BYN>B`P<bhe=SHh<3P`=c4i=SPg=BYN>B`P2R0P<bhe=SHh<3Tc>C<b<3<a<SDZ
GST/83<^=CHf>30i=3Hd<S<d<cLe:Uhi;20c;SDf=SP`>CDi=cLf=CHb=BYN>B`P<bhe=SHh<3Th=C@h
<C8e:Uhi;20:820c;SDf=SPa<3<h<3Pi<3Hb=BYN>Gd/2R19KF5WIE=YNVD]?W/c=S@/834h=Gd/2R19
KF5WIDeQLVMYKW<]?W]k<2`P<7d/87/`;20`OGd/2R19KF5WIE9UIfU_KRdnNg/`;20aOB`PNc0/835m
OEd00000001;0000@0000300000500008000004000010000400005P0002GAP00G04003Q7001H0000
UdH005`1000hA`00B`000400000`00001@000200000100000@00010000120000P4H00:X1000iA`00
@P000816002Z0@00>DL004/000100000<00000D0000P00000@000040000@0000F00009M6001L0@00
>4L005P0002GAP00G04003Q7001;0000@0000300000500008000004000010000400004800020AP00
ZP4003U700120000P4H00:X1000iA`00B`000400000`00001@000200000100000@000100001H0000
UdH005`1000hA`00F00009M6001L0@00>4L0024000080000HP0000`0000100004@0000`000010000
B`000100000000001@0003X0000<00000`000240000800007P0001P0001H0000UdH005`1000hA`00
G`0003P000010000>0000000000h00000000000Q0@020000000003lmV@00000000000000000U0000
30000040000U0000300000D0081G0000L00005P0002GAP00F`4003M7000E0000GP2KAV/0^TIi0=Q6
Q@3`AY800dNP01E7[00QAkX0:dO70397e00dAn80=4O^0357n`0[A`P18TLE0AM78`48Ac01mTHl0NA6
BP7=AUL1]DIG0KA69@0000`0000700209@0000`0000000208P0000`0003ooooo:00000`000010000
>P0000`0000:00008P0000`0003oooooB`000400000`00001@000200000100000@00010000120000
P4H00:X1000iA`00@P000816002Z0@00>DL0024000080000HP0000`0000100004@0000`000010000
B`000100000000001@0003X0000<00000`0005l0000h00000@0003P000000000>000000000008P40
0P0000000000000000000000000000009@0000`0000100009@0000`000050020E`0002@0001G0000
5TL006D0000WA`000P0005h084MN01e79@0000`0000700209@0000`000000020:00000`000010000
>P0000`0000:0000>P0000`000030000G`0003P000010000>0000000000h00000000000R0@020000
000000000000000000000000000U000030000040000U0000300000D0081G000090000640000GA`00
K`0002M700020000J00PAfP07TLU0000300000L0080U000030000000080X000030000040000j0000
300000X0000j0000300000<0001O0000>0000040000h0000000003P0000000000281008000000000
0000000000000000000002D0000<00000@0002D0000<00001@00P5L0000T0000J`0001M7001i0000
9dL00080001b0217LP0NAbD0000<00001`00P2D0000<00000000P2P0000<00000@0003X0000<0000
2P0003X0000<00000`0005l0000h00000@0003P000000000>000000000008P400P00000000000000
00000000000000009@0000`0000100009@0000`000050020E`0002@0001e00005dL008<0000WA`00
0P0007`084Ml01i79@0000`0000700209@0000`000000020:00000`000010000>P0000`0000:0000
>P0000`000030000G`0003P000010000>0000000000h00000000000R0@0200000000000000000000
00000000000U000030000040000U0000300000D0081G0000900007l0000GA`00S@0002M700020000
QP0PAhH07TLU0000300000L0080U000030000000080X000030000040000j0000300000X0000j0000
300000<0001O0000>0000040000h0000000003P00000000002810080000000000000000000000000
000002D0000<00000@0002D0000<00001@00P5L0000T0000R@0001I7002G00009dL00080002@0217
T00MAbD0000<00001`00P2D0000<00000000P2P0000<00000@0003X0000<00002P000280000<0000
oooood/000100000<00000D0000P00000@000040000@0000Q@000257002J0000=DL008D0000QA`00
VP0003E7001B0000L0400040000A00001P00000000000000_08000000044P040E01Y06d0I@1c0200
CP1U07L0801B06l0K@1Q06h000000000000000000000000000000000000000000000000000000000
QP00080;901h0AH000000?3A4`000000^02AO1P?A@BldQ<0@@2AO7P75P1M095l80000000000P3dD4
EfEcM6EbKP000000N04F051000390P8030000000001TMP080000080;9000000000000000000001H0
000008P;9020_O5g00000000000X0000T0P00<3A4`0P3dD4_=TC023YT7aP095loooooed0TG`00?5g
000F0000lGL__O5gB0dFiB00000P3dD4d4/100D00000dQ<0B4000;cI4`0PjI1lH02AO?oooomM095l
I7H02000001TMP08000002D0000<00000@0001P0000<000000000QH0000<00006@000180000<0000
0@0001/0000@0000QP000317001D0000H00008H0000RA`00U`00039700010000002P@@00X4400000
000000<0001<00000000000000000000oooooooooomD0000<@0^03H000070000100000L0000B0000
30000080001;0000@0000300000500008000004000010000400004800020AP00ZP4003U700120000
P4H00:X1000iA`008@0000P0001R000030000040000A000030000040001;00004000000000050000
>P0000`000030000G`0003P000020000>0000000000h00000000000R0@0200000000000000000000
00000000000U000030000080000U0000300000D0081G0000900009<0000GA`00X@0002M700020000
VP0PAiX07TLU0000300000L0080U000030000000080X000030000080000j0000300000X0000j0000
300000<0001O0000>0000080000h0000000003P00000000002810080000000000000000000000000
000002D0000<00000P0002D0000<00001@00P5L0000T0000W@0001M7002[00009dL00080002T0217
Y00NAbD0000<00001`00P2D0000<00000000P2P0000<00000P0003X0000<00002P0003X0000<0000
0`0005l0000h00000P0003P000000000>000000000008P400P000000000000000000000000000000
9@0000`0000200009@0000`000050020E`0002@0002W00005dL00;D0000WA`000P000:h084N^01i7
9@0000`0000700209@0000`000000020:00000`000020000>P0000`0000:0000>P0000`000030000
G`0003P000020000>0000000000h00000000000R0@020000000000000000000000000000000U0000
30000080000U0000300000D0081G000090000;40000GA`00_`0002M700020000^00PAkP07TLU0000
300000L0080U000030000000080X000030000080000j0000300000X0000j0000300000<0001O0000
>0000080000h0000000003P00000000002810080000000000000000000000000000002D0000<0000
0P0002D0000<00001@00P5L0000T0000^`0001I7003900009dL0008000320217`P0MAbD0000<0000
1`00P2D0000<00000000P2P0000<00000P0003X0000<00002P000280000<0000oooood/000100000
<00000D0000P00000@000040000@0000]`000257003<0000=DL00;L0000QA`00c00003E7000U0000
30000040000H000030000000008F0000300001T0000B000030000040000K000040000;P0000`A`00
E0000600002h00008TL00<T0000bA`000@000000X4400:110000000000030000C000000000000000
00000?ooooooooooE0000340;P0g00001`0000@0000700004P0000`000020000B`000400000`0000
1@000200000100000@00010000120000P4H00:X1000iA`00@P000816002Z0@00>DL0024000080000
HP0000`0000100004@0000`000010000B`000100000000001@0003X0000<00000`0005l0000h0000
0P0003P000000000>000000000008P400P0000000000000000000000000000009@0000`000020000
9@0000`000050020E`0002@0003500005dL00=<0000WA`000P000<`084O<01i79@0000`000070020
9@0000`000000020:00000`000020000>P0000`0000:0000>P0000`000030000G`0003P000020000
>0000000000h00000000000R0@020000000000000000000000000000000U000030000080000U0000
300000D0081G000090000<l0000GA`00g@0002M700020000eP0PAmH07TLU0000300000L0080U0000
30000000080X000030000080000j0000300000X0000j0000300000<0001O0000>0000080000h0000
000003P00000000002810080000000000000000000000000000002D0000<00000P0002D0000<0000
1@00P5L0000T0000f@0001M7003W00009dL00080003P0217h00NAbD0000<00001`00P2D0000<0000
0000P2P0000<00000P0003X0000<00002P0003X0000<00000`0005l0000h00000P0003P000000000
>000000000008P400P0000000000000000000000000000009@0000`0000200009@0000`000050020
E`0002@0003S00005dL00?40000WA`000P000>X084OZ01i79@0000`0000700209@0000`000000020
:00000`000020000>P0000`0000:0000>P0000`000030000G`0003P000020000>0000000000h0000
0000000R0@020000000000000000000000000000000U000030000080000U0000300000D0081G0000
90000>d0000FA`00n`0002M700020000m00PAo@07DLU0000300000L0080U000030000000080X0000
30000080000j0000300000X0000R000030000?oooom;0000@0000300000500008000004000010000
40000>T0000QA`00oP0003E7003Y00008DL00?h0000eA`009@0000`000010000600000`000000002
5P0000`0000I00004P0000`0000100006`000100003Z0000<4L005@0001P0000jP000297003k0000
<TL0004000000:11002P@@00000000000`0004`00000000000000000003ooooooooooe@0000a02h0
>00000L0000400001`000180000<00000P0004/000100000<00000D0000P00000@000040000@0000
@P000816002Z0@00>DL004800020AP00ZP4003U7000Q000020000680000<00000@000140000<0000
0@0004/0000@0000000000D0000j0000300000<0001O0000>0000080000h0000000003P000000000
02810080000000000000000000000000000002D0000<00000P0002D0000<00001@00P5L0000T0000
m`0001M700050@009dL00080003n0217oP0NAbD0000<00001`00P2D0000<00000000P2P0000<0000
0P0003X0000<00002P0003X0000<00000`0005l0000h00000P0003P000000000>000000000008P40
0P0000000000000000000000000000009@0000`0000200009@0000`000050020E`0002@000010@00
5dL000l1000WA`000P0000P184L80Ai79@0000`0000700209@0000`000000020:00000`000020000
>P0000`0000:0000>P0000`000030000G`0003P000020000>0000000000h00000000000R0@020000
000000000000000000000000000U000030000080000U0000300000D0081G0000900000/1000GA`00
6@4002M7000200004P4PAa817TLU0000300000L0080U000030000000080X000030000080000j0000
300000X0000j0000300000<0001O0000>0000080000h0000000003P0000000000281008000000000
0000000000000000000002D0000<00000P0002D0000<00001@00P5L0000T00005@4001M7000S0@00
9dL00080000L0B17704NAbD0000<00001`00P2D0000<00000000P2P0000<00000P0003X0000<0000
2P0003X0000<00000`0005l0000h00000P0003P000000000>000000000008P400P00000000000000
00000000000000009@0000`0000200009@0000`000050020E`0002@0000O0@005TL002d1000WA`00
0P0002H184LV0Ae79@0000`0000700209@0000`000000020:00000`000020000>P0000`0000:0000
8P0000`0003oooooB`000400000`00001@000200000100000@000100000K0@008DL00301000eA`00
6`400257000`0@00=DL002D0000<00000@0001P0000<000000000QH0000<00006@000180000<0000
0@0001/0000@000070400317001D0000H00001`1000RA`00;@40039700010000002P@@00X4400000
000000<0001<00000000000000000000oooooooooomD0000<@0^03T000070000100000L0000B0000
30000080001;0000@0000300000500008000004000010000400004800020AP00ZP4003U700120000
P4H00:X1000iA`008@0000P0001R000030000040000A000030000040001;00004000000000050000
>P0000`000030000G`0003P000020000>0000000000h00000000000R0@0200000000000000000000
00000000000U000030000080000U0000300000D0081G0000900002P1000GA`00=P4002M700020000
;`4PAbl17TLU0000300000L0080U000030000000080X000030000080000j0000300000X0000j0000
300000<0001O0000>0000080000h0000000003P00000000002810080000000000000000000000000
000002D0000<00000P0002D0000<00001@00P5L0000T0000<P4001M700100@009dL00080000i0B17
>@4NAbD0000<00001`00P2D0000<00000000P2P0000<00000P0003X0000<00002P0003X0000<0000
0`0005l0000h00000P0003P000000000>000000000008P400P000000000000000000000000000000
9@0000`0000200009@0000`000050020E`0002@0000l0@005dL004X1000WA`000P0004<184M30Ai7
9@0000`0000700209@0000`000000020:00000`000020000>P0000`0000:0000>P0000`000030000
G`0003P000020000>0000000000h00000000000R0@020000000000000000000000000000000U0000
30000080000U0000300000D0081G0000900004H1000GA`00E04002M700020000C@4PAdd17TLU0000
300000L0080U000030000000080X000030000080000j0000300000X0000j0000300000<0001O0000
>0000080000h0000000003P00000000002810080000000000000000000000000000002D0000<0000
0P0002D0000<00001@00P5L0000T0000D04001I7001N0@009dL00080001G0B17E`4MAbD0000<0000
1`00P2D0000<00000000P2P0000<00000P0003X0000<00002P000280000<0000oooood/000100000
<00000D0000P00000@000040000@0000C0400257001Q0@00=DL004`1000QA`00H@4003E7000U0000
30000040000H000030000000008F0000300001T0000B000030000040000K0000400004d1000`A`00
E0000600001=0@008TL005h1000bA`000@000000X4400:110000000000030000C000000000000000
00000?ooooooooooE0000380;P0`00001`0000@0000700004P0000`000020000B`000400000`0000
1@000200000100000@00010000120000P4H00:X1000iA`00@P000816002Z0@00>DL0024000080000
HP0000`0000100004@0000`000010000B`000100000000001@0003X0000<00000`0005l0000h0000
0P0003P000000000>000000000008P400P0000000000000000000000000000009@0000`000020000
9@0000`000050020E`0002@0001B00006DL006<1000WA`000P0005T084ML0B179@0000`000070020
9@0000`000000020:00000`000020000>P0000`0000:00008P0000`0003oooooB`000400000`0000
1@000200000100000@000100001S0@005TL00:X1000ZA`00H`4001I7002Z0@00:TL002D0000<0000
0@0001P0000<000000000QH0000<00006@000180000<00000@0001/0000@0000I04002E7001D0000
K00006@1000GA`00P`4002M700010000002P@@00X4400000000000D0001<00000000000000000000
oooooooooomH0000AP1Y0680I@1b0000200000@0000700001`0000H0000B000030000080000B0000
30000040000K0000400008P1000UA`00E00006@000280@005dL00:P1000WA`000@000000X4400:11
0000000000040000C00000000000000000000?ooooooooooE00004@0J@1Q06d02P0000@000070000
30000180000<00000P0004/000100000<00000D0000P00000@000040000@0000@P000816002Z0@00
>DL004800020AP00ZP4003U7000Q000020000680000<00000@000140000<00000@0004/0000@0000
000000D0000j0000300000<0001O0000>0000080000h0000000003P0000000000281008000000000
0000000000000000000002D0000<00000P0002D0000<00001@00P5L0000T0000E`0002a7001W0000
>TL00080001N03=7H00cAbD0000<00001`00P2D0000<00000000P2P0000<00000P0003X0000<0000
2P0003X0000<00000`0005l0000h00000P0003P000000000>000000000008P400P00000000000000
00000000000000009@0000`0000200009@0000`000050020E`0002@0001G00008dL006L0000aA`00
0P0005h0:TMP02Y79@0000`0000700209@0000`000000020:00000`000020000>P0000`0000:0000
>P0000`000030000G`0003P000020000>0000000000h00000000000R0@0200000000000000000000
00000000000U000030000080000U0000300000D0081G0000900005L0000IA`00J@0002M700020000
GP0PAf8084LU0000300000L0080U000030000000080X000030000080000j0000300000X0000j0000
300000<0001O0000>0000080000h0000000003P00000000002810080000000000000000000000000
000002D0000<00000P0002D0000<00001@00P5L0000T0000E`000117001W00007TL00080001N01M7
H00GAbD0000<00001`00P2D0000<00000000P2P0000<00000P0003X0000<00002P0003X0000<0000
0`0005l0000h00000P0003P000000000>000000000008P400P000000000000000000000000000000
9@0000`0000200009@0000`000050020E`0002@0001G00001TL006L0000DA`000P0005h03DMP00e7
9@0000`0000700209@0000`000000020:00000`000020000>P0000`0000:0000>P0000`000030000
G`0003P000020000>0000000000h00000000000R0@020000000000000000000000000000000U0000
30000080000U0000300000D0081G0000900005L0003mAP00I`0000]700020000GP04Af0014LU0000
300000L0080U000030000000080X000030000080000j0000300000X0000j0000300000<0001O0000
>0000080000h0000000003P00000000002810080000000000000000000000000000002D0000<0000
0P0002D0000<00001@00P5L0000T0000E`000?A6001W00000TL00080001N0?]6H03kARD0000<0000
1`00P2D0000<00000000P2P0000<00000P0003X0000<00002P0003X0000<00000`0005l0000h0000
0P0003P000000000>000000000008P400P0000000000000000000000000000009@0000`000020000
9@0000`000050020E`0002@0001G0000jTH006T0003hAP000P0005h0lDIR0?569@0000`000070020
9@0000`000000020:00000`000020000>P0000`0000:00008P0000`0003oooooB`000400000`0000
1@000200000100000@00010000120000idH005`0003kAP00@P000>M6001L0000ndH002D0000<0000
0@0001P0000<000000000QH0000<00006@000180000<00000@0001/0000@0000@P000?I6001D0000
I0000480003XAP00FP000?Q600010000002P@@00X4400000000000@0001<00000000000000000000
oooooooooomD0000=@0e02h0<00700001`0000@0000700004P0000`000020000B`000400000`0000
1@000200000100000@00010000120000P4H00:X1000iA`00@P000816002Z0@00>DL0024000080000
HP0000`0000100004@0000`000010000B`000100000000001@0003X0000<00000`0005l0000h0000
0P0003P000000000>000000000008P400P0000000000000000000000000000009@0000`000020000
9@0000`000050020E`0002@0001G0000hDH006L0003_AP000P0005h0j4IP0>Q69@0000`000070020
9@0000`000000020:00000`000020000>P0000`0000:0000>P0000`000030000G`0003P000020000
>0000000000h00000000000R0@020000000000000000000000000000000U000030000080000U0000
300000D0081G0000900005L0003GAP00I`000>E600020000GP3NAV00gTHU0000300000L0080U0000
30000000080X000030000080000j0000300000X0000j0000300000<0001O0000>0000080000h0000
000003P00000000002810080000000000000000000000000000002D0000<00000P0002D0000<0000
1@00P5L0000T0000E`000<i6001W0000g4H00080001N0=E6H03EARD0000<00001`00P2D0000<0000
0000P2P0000<00000P0003X0000<00002P0003X0000<00000`0005l0000h00000P0003P000000000
>000000000008P400P0000000000000000000000000000009@0000`0000200009@0000`000050020
E`0002@0001G0000aDH006L0003CAP000P0005h0c4IP0<a69@0000`0000700209@0000`000000020
:00000`000020000>P0000`0000:0000>P0000`000030000G`0003P000020000>0000000000h0000
0000000R0@020000000000000000000000000000000U000030000080000U0000300000D0081G0000
900005L0002kAP00J@000<U600020000GP32AV80`THU0000300000L0080U000030000000080X0000
30000080000j0000300000X0000R000030000?oooom;0000@0000300000500008000004000010000
40000480002hAP00G0000<a600120000^4H005`0003<AP009@0000`000010000600000`000000002
5P0000`0000I00004P0000`0000100006`00010000120000adH005@0001T0000@P000;U6001J0000
bDH0004000000:11002P@@0000000000100004`00000000000000000003ooooooooooe@0000e03D0
;P0e00L000070000100000L0000B000030000080001;0000@0000300000500008000004000010000
400004800020AP00ZP4003U700120000P4H00:X1000iA`008@0000P0001R000030000040000A0000
30000040001;00004000000000050000>P0000`000030000G`0003P000020000>0000000000h0000
0000000R0@020000000000000000000000000000000U000030000080000U0000300000D0081G0000
900005L0002bAP00I`000<1600020000GP2iAV00^DHU0000300000L0080U000030000000080X0000
30000080000j0000300000X0000j0000300000<0001O0000>0000080000h0000000003P000000000
02810080000000000000000000000000000002D0000<00000P0002D0000<00001@00P5L0000T0000
E`000:Q6001W0000]TH00080001N0:m6H02_ARD0000<00001`00P2D0000<00000000P2P0000<0000
0P0003X0000<00002P0003X0000<00000`0005l0000h00000P0003P000000000>000000000008P40
0P0000000000000000000000000000009@0000`0000200009@0000`000050020E`0002@0001G0000
WdH006L0002]AP000P0005h0YTIP0:I69@0000`0000700209@0000`000000020:00000`000020000
>P0000`0000:0000>P0000`000030000G`0003P000020000>0000000000h00000000000R0@020000
000000000000000000000000000U000030000080000U0000300000D0081G0000900005L0002FAP00
I`000:A600020000GP2MAV00WDHU0000300000L0080U000030000000080X000030000080000j0000
300000X0000j0000300000<0000Q0000200001h0000H0000@P000816002Z0@00>DL005l0000h0000
0P0003P000000000>000000000008P400P0000000000000000000000000000009@0000`000020000
9@0000`000050020E`0002@0001G0000T4H006D0000hA`000P0005h0>4MN09M69@0000`000070020
9@0000`0000000208P0000`0003ooooo:00000`000020000>P0000`0000:00008P0000`0003ooooo
B`000400000`00001@000200000100000@000100001=0000P4H006l0002BAP00C@000816001_0000
TTH002D0000<00000@0001P0000<000000000QH0000<00006@000180000<00000@0001/0000@0000
CP0008i6001D0000I00004h00020AP00K000091600010000002P@@00X4400000000000@0001<0000
0000000000000000oooooooooomD0000E01Y06d0I@080000100000`0000700004P0000`000020000
B`000400000`00001@000200000100000@00010000120000P4H00:X1000iA`00@P000816002Z0@00
>DL004/000100000<00000D0000P00000@000040000@0000F00009M6001L0@00>4L005P0002GAP00
G04003Q7001;0000@0000300000500008000004000010000400004800020AP00ZP4003U700120000
P4H00:X1000iA`00B`000400000`00001@000200000100000@0001000001P?oo0H3ooomo003oO`00
0H3oo`60ooooO`00ogl000h0000D000000000100000D0000
\>"], "Output",
 Evaluatable->False,
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.565187724234375*^9, 3.565187847953125*^9, 
  3.56518891003125*^9, 3.56518898146875*^9, 3.56518921253125*^9, 
  3.565351092171875*^9, 3.566310626578125*^9, 3.566622682984375*^9, 
  3.56665511028125*^9, 3.566744325953125*^9, 3.56680807196875*^9, 
  3.566809393203125*^9, 3.566809464234375*^9, 3.566809597765625*^9, 
  3.5668098548125*^9, 3.566810380890625*^9, 3.56708744228125*^9},
 ImageSize->{364, 185},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Quiet", "[", 
  RowBox[{"NMinimize", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"STime", "[", 
       RowBox[{"500", ",", "400", ",", ".75", ",", "10", ",", 
        RowBox[{"RMSSpot7", "[", "500", "]"}], ",", "FWHMfixDS", ",", 
        "DefocMH", ",", "56.73", ",", "DAp", ",", "0", ",", "0", ",", "7500", 
        ",", "20"}], "]"}], ",", 
      RowBox[{
       RowBox[{"DAp", ">", "1"}], "&&", 
       RowBox[{"DAp", "<", "2"}]}]}], "}"}], ",", 
    RowBox[{"{", "DAp", "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "optimal", " ", "fiber", " ", "size", " ", "for", " ", "qsos", " ", "at", 
    " ", "500", "nm"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{
  3.5666272633125*^9, {3.5666550973125*^9, 3.566655098265625*^9}, 
   3.566655151296875*^9, {3.56665521046875*^9, 3.566655211296875*^9}, {
   3.5666553715*^9, 3.566655377765625*^9}, {3.56680801534375*^9, 
   3.5668080206875*^9}, {3.56680943140625*^9, 3.566809436234375*^9}, {
   3.5668094689375*^9, 3.566809486203125*^9}, 3.566809573375*^9, 
   3.566809729875*^9, {3.56680977934375*^9, 3.566809783046875*^9}, {
   3.566809878609375*^9, 3.566809878953125*^9}, {3.566809964765625*^9, 
   3.56680997009375*^9}, {3.567087483875*^9, 3.567087488921875*^9}, 
   3.567088968734375*^9, 3.56709002525*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"27.18795627407574`", ",", 
   RowBox[{"{", 
    RowBox[{"DAp", "\[Rule]", "1.6071565730906263`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.566809939796875*^9, 3.56681057925*^9, 
  3.567089638109375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{"Now", " ", "ADC", " ", "stuff"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"STimeADC", "[", 
    RowBox[{
    "\[Lambda]_", ",", "FWHMsite_", ",", "Decent_", ",", "RmsSpot_", ",", 
     "FWHMFix_", ",", "DDefoc_", ",", "PlateSc_", ",", "DAp_", ",", "RE_", 
     ",", "RV_", ",", "Res1_", ",", "VSig_"}], "]"}], ":=", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"FAM", "[", "AM", "]"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"SSpeedAll", "[", 
         RowBox[{
         "\[Lambda]", ",", "\[Lambda]", ",", "FWHMsite", ",", "AM", ",", 
          "Decent", ",", "RmsSpot", ",", "FWHMFix", ",", "DDefoc", ",", 
          "PlateSc", ",", "DAp", ",", "RE", ",", "RV", ",", "Res1", ",", 
          "VSig"}], "]"}], 
        RowBox[{"ADCloss", "[", "\[Lambda]", "]"}]}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"AM", ",", 
       RowBox[{"{", 
        RowBox[{
        "1.05", ",", "1.15", ",", "1.25", ",", "1.35", ",", "1.45", ",", 
         "1.55", ",", "1.65", ",", "1.75", ",", "1.85", ",", "1.95", ",", 
         "2.05"}], "}"}]}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.567087843328125*^9, 3.567087857140625*^9}, {
   3.567088511828125*^9, 3.567088560125*^9}, {3.567088757765625*^9, 
   3.56708876221875*^9}, 3.567090029296875*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"STime", "[", 
      RowBox[{"350", ",", "410", ",", ".75", ",", "10", ",", 
       RowBox[{"RMSSpot7", "[", "350", "]"}], ",", "FWHMfixDS", ",", 
       "DefocMH", ",", "56.73", ",", "DAp", ",", "0", ",", "0", ",", "7500", 
       ",", "20"}], "]"}], ",", 
     RowBox[{"STimeADC", "[", 
      RowBox[{"350", ",", ".75", ",", "10", ",", 
       RowBox[{"RMSSpot7", "[", "350", "]"}], ",", "FWHMfixDS", ",", 
       "DefocMH", ",", "56.73", ",", "DAp", ",", "0", ",", "0", ",", "7500", 
       ",", "20"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"DAp", ",", "1.5", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"\"\<Fiber Diam\>\"", ",", "\"\<Time\>\""}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
   "survey", " ", "time", " ", "vs", " ", "fiber", " ", "size", " ", "for", 
    " ", "qsos", " ", "at", " ", "350", "nm"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.56518743709375*^9, 3.56518746646875*^9}, {
  3.565187590375*^9, 3.56518759528125*^9}, {3.565187707671875*^9, 
  3.565187788234375*^9}, {3.56518812803125*^9, 3.56518813096875*^9}, {
  3.565188877375*^9, 3.565188877953125*^9}, {3.565188922421875*^9, 
  3.565188923*^9}, {3.56518908640625*^9, 3.5651891205*^9}, {
  3.566655069421875*^9, 3.5666550740625*^9}, {3.566807946734375*^9, 
  3.566808002328125*^9}, {3.566809351515625*^9, 3.5668093554375*^9}, {
  3.566809420734375*^9, 3.566809423984375*^9}, {3.56680946534375*^9, 
  3.566809481*^9}, {3.56680953290625*^9, 3.566809559*^9}, {
  3.566809682703125*^9, 3.56680971296875*^9}, {3.566809865640625*^9, 
  3.566809865984375*^9}, {3.56708727203125*^9, 3.5670872793125*^9}, {
  3.567087379859375*^9, 3.567087384640625*^9}, {3.567088724546875*^9, 
  3.56708881571875*^9}, {3.567088871703125*^9, 3.56708887853125*^9}, {
  3.56709003115625*^9, 3.56709006534375*^9}, {3.5670901333125*^9, 
  3.567090133984375*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000263157895`, 77.29155294388542}, {1.5253106420756577`, 
     76.80811779191069}, {1.5527502499259862`, 76.3529235445087}, {
     1.5783714814457226`, 75.98966976818319}, {1.603490126108551, 
     75.68895091257437}, {1.6307377628618398`, 75.4222321252819}, {
     1.6561670232845362`, 75.22698958540667}, {1.683725275797693, 
     75.07169431006965}, {1.7107809414539419`, 74.97415922943429}, {
     1.7360182307795984`, 74.93058939328995}, {1.7633845121957155`, 
     74.93343085922777}, {1.7889324172812402`, 74.98175587753916}, {
     1.813977735509857, 75.07078183696703}, {1.841152045828934, 
     75.21284732526559}, {1.866507979817419, 75.3870915203687}, {
     1.893992905896364, 75.62043041231269}, {1.9209752451184012`, 
     75.8935021362795}, {1.9461392080098463`, 76.18678701883653}, {
     1.9734321629917517`, 76.54627436042732}, {1.9989067416430648`, 
     76.92007787762478}, {1.9999999736842105`, 76.93693832114191}}]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000263157895`, 70.12052333300964}, {1.5253106420756577`, 
     70.12385789658882}, {1.5527502499259862`, 70.185324542776}, {
     1.5783714814457226`, 70.29518902072316}, {1.603490126108551, 
     70.45052084652053}, {1.6307377628618398`, 70.67076078349749}, {
     1.6561670232845362`, 70.92355734686898}, {1.683725275797693, 
     71.24770245663943}, {1.7107809414539419`, 71.61552288781694}, {
     1.7360182307795984`, 72.00196460756709}, {1.7633845121957155`, 
     72.46737275238708}, {1.7889324172812402`, 72.94465708733516}, {
     1.813977735509857, 73.45206077533814}, {1.841152045828934, 
     74.04624763320687}, {1.866507979817419, 74.64116385862901}, {
     1.893992905896364, 75.32971510096462}, {1.9209752451184012`, 
     76.04948380032398}, {1.9461392080098463`, 76.75956775363944}, {
     1.9734321629917517`, 77.57182630261384}, {1.9989067416430648`, 
     78.36930728403962}, {1.9999999736842105`, 78.40437861370289}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Fiber Diam\"", TraditionalForm], 
    FormBox["\"Time\"", TraditionalForm]},
  AxesOrigin->{1.5, 70.},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.5, 2}, {70.12052333300964, 78.40437861370289}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.56708886634375*^9, 3.56708898940625*^9, 
  3.567090246703125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"STimeAll", "[", 
      RowBox[{"400", ",", "410", ",", ".75", ",", "10", ",", 
       RowBox[{"RMSSpot7", "[", "400", "]"}], ",", "FWHMfixDS", ",", 
       "DefocMH", ",", "56.73", ",", "DAp", ",", "0", ",", "0", ",", "7500", 
       ",", "20"}], "]"}], ",", 
     RowBox[{"STimeAllADC", "[", 
      RowBox[{"400", ",", ".75", ",", "10", ",", 
       RowBox[{"RMSSpot7", "[", "400", "]"}], ",", "FWHMfixDS", ",", 
       "DefocMH", ",", "56.73", ",", "DAp", ",", "0", ",", "0", ",", "7500", 
       ",", "20"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"DAp", ",", "1.5", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"\"\<Fiber Diam\>\"", ",", "\"\<Time\>\""}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
   "survey", " ", "time", " ", "vs", " ", "fiber", " ", "size", " ", "for", 
    " ", "qsos", " ", "at", " ", "350", "nm"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.56518743709375*^9, 3.56518746646875*^9}, {
  3.565187590375*^9, 3.56518759528125*^9}, {3.565187707671875*^9, 
  3.565187788234375*^9}, {3.56518812803125*^9, 3.56518813096875*^9}, {
  3.565188877375*^9, 3.565188877953125*^9}, {3.565188922421875*^9, 
  3.565188923*^9}, {3.56518908640625*^9, 3.5651891205*^9}, {
  3.566655069421875*^9, 3.5666550740625*^9}, {3.566807946734375*^9, 
  3.566808002328125*^9}, {3.566809351515625*^9, 3.5668093554375*^9}, {
  3.566809420734375*^9, 3.566809423984375*^9}, {3.56680946534375*^9, 
  3.566809481*^9}, {3.56680953290625*^9, 3.566809559*^9}, {
  3.566809682703125*^9, 3.56680971296875*^9}, {3.566809865640625*^9, 
  3.566809865984375*^9}, {3.56708727203125*^9, 3.5670872793125*^9}, {
  3.567087379859375*^9, 3.567087384640625*^9}, {3.567088724546875*^9, 
  3.56708881571875*^9}, {3.567088871703125*^9, 3.56708887853125*^9}, {
  3.5670890746875*^9, 3.56708908675*^9}, {3.567089184484375*^9, 
  3.56708919084375*^9}, {3.567090138875*^9, 3.56709013896875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000263157895`, 36.70088785405716}, {1.5253106420756577`, 
     36.763914514280266`}, {1.5527502499259862`, 36.862778281095444`}, {
     1.5783714814457226`, 36.98290017582722}, {1.603490126108551, 
     37.126009841692316`}, {1.6307377628618398`, 37.30889937782042}, {
     1.6561670232845362`, 37.50493918609805}, {1.683725275797693, 
     37.74443242232377}, {1.7107809414539419`, 38.006387739040306`}, {
     1.7360182307795984`, 38.274284158747086`}, {1.7633845121957155`, 
     38.590070929124565`}, {1.7889324172812402`, 38.90831068145692}, {
     1.813977735509857, 39.24200428377033}, {1.841152045828934, 
     39.62814220018231}, {1.866507979817419, 40.01085504130628}, {
     1.893992905896364, 40.44996873882213}, {1.9209752451184012`, 
     40.905471459483955`}, {1.9461392080098463`, 41.35198673029533}, {
     1.9734321629917517`, 41.85989459045656}, {1.9989067416430648`, 
     42.356095390755144`}, {1.9999999736842105`, 42.37786753098829}}]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000263157895`, 38.77648283061359}, {1.5253106420756577`, 
     38.847667411776705`}, {1.5527502499259862`, 38.95709125082213}, {
     1.5783714814457226`, 39.08864357707636}, {1.603490126108551, 
     39.244397107970116`}, {1.6307377628618398`, 39.44257788337643}, {
     1.6561670232845362`, 39.654339958917355`}, {1.683725275797693, 
     39.9124268269397}, {1.7107809414539419`, 40.19418652191306}, {
     1.7360182307795984`, 40.48192240647027}, {1.7633845121957155`, 
     40.820695754354894`}, {1.7889324172812402`, 41.16176556764411}, {
     1.813977735509857, 41.51911515796706}, {1.841152045828934, 
     41.93233904267646}, {1.866507979817419, 42.3416510196667}, {
     1.893992905896364, 42.81103748374504}, {1.9209752451184012`, 
     43.29771349742683}, {1.9461392080098463`, 43.774598102941205`}, {
     1.9734321629917517`, 44.31685960675256}, {1.9989067416430648`, 
     44.84645499941303}, {1.9999999736842105`, 44.869689020476315`}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Fiber Diam\"", TraditionalForm], 
    FormBox["\"Time\"", TraditionalForm]},
  AxesOrigin->{1.5, 38.},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.5, 2}, {36.70088785405716, 44.869689020476315`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.56708886634375*^9, 3.56708898940625*^9, 
  3.56708974515625*^9, 3.56708985225*^9, 3.567090355984375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"STimeAll", "[", 
      RowBox[{"450", ",", "410", ",", ".75", ",", "10", ",", 
       RowBox[{"RMSSpot7", "[", "450", "]"}], ",", "FWHMfixDS", ",", 
       "DefocMH", ",", "56.73", ",", "DAp", ",", "0", ",", "0", ",", "7500", 
       ",", "20"}], "]"}], ",", 
     RowBox[{"STimeAllADC", "[", 
      RowBox[{"450", ",", ".75", ",", "10", ",", 
       RowBox[{"RMSSpot7", "[", "450", "]"}], ",", "FWHMfixDS", ",", 
       "DefocMH", ",", "56.73", ",", "DAp", ",", "0", ",", "0", ",", "7500", 
       ",", "20"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"DAp", ",", "1.5", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"\"\<Fiber Diam\>\"", ",", "\"\<Time\>\""}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
   "survey", " ", "time", " ", "vs", " ", "fiber", " ", "size", " ", "for", 
    " ", "qsos", " ", "at", " ", "350", "nm"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.56518743709375*^9, 3.56518746646875*^9}, {
  3.565187590375*^9, 3.56518759528125*^9}, {3.565187707671875*^9, 
  3.565187788234375*^9}, {3.56518812803125*^9, 3.56518813096875*^9}, {
  3.565188877375*^9, 3.565188877953125*^9}, {3.565188922421875*^9, 
  3.565188923*^9}, {3.56518908640625*^9, 3.5651891205*^9}, {
  3.566655069421875*^9, 3.5666550740625*^9}, {3.566807946734375*^9, 
  3.566808002328125*^9}, {3.566809351515625*^9, 3.5668093554375*^9}, {
  3.566809420734375*^9, 3.566809423984375*^9}, {3.56680946534375*^9, 
  3.566809481*^9}, {3.56680953290625*^9, 3.566809559*^9}, {
  3.566809682703125*^9, 3.56680971296875*^9}, {3.566809865640625*^9, 
  3.566809865984375*^9}, {3.56708727203125*^9, 3.5670872793125*^9}, {
  3.567087379859375*^9, 3.567087384640625*^9}, {3.567088724546875*^9, 
  3.56708881571875*^9}, {3.567088871703125*^9, 3.56708887853125*^9}, {
  3.5670890746875*^9, 3.56708908675*^9}, {3.567089157203125*^9, 
  3.567089174296875*^9}, {3.56709014803125*^9, 3.56709014815625*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000263157895`, 26.472019734630617`}, {1.5253106420756577`,
      26.532221183106564`}, {1.5527502499259862`, 26.61989679662681}, {
     1.5783714814457226`, 26.722208526647286`}, {1.603490126108551, 
     26.841180165005117`}, {1.6307377628618398`, 26.99063729859773}, {
     1.6561670232845362`, 27.14886203455209}, {1.683725275797693, 
     27.340357067955804`}, {1.7107809414539419`, 27.548262443310843`}, {
     1.7360182307795984`, 27.75969260160533}, {1.7633845121957155`, 
     28.00778474850491}, {1.7889324172812402`, 28.256865698009303`}, {
     1.813977735509857, 28.517262397085513`}, {1.841152045828934, 
     28.817803051704075`}, {1.866507979817419, 29.115021183938797`}, {
     1.893992905896364, 29.455398037207807`}, {1.9209752451184012`, 
     29.807893531098347`}, {1.9461392080098463`, 30.15296345613112}, {
     1.9734321629917517`, 30.545013672871924`}, {1.9989067416430648`, 
     30.92763222882483}, {1.9999999736842105`, 30.944412778682644`}}]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000263157895`, 26.489777124138314`}, {1.5253106420756577`,
      26.589637576046734`}, {1.5527502499259862`, 26.72022029507208}, {
     1.5783714814457226`, 26.86257942609428}, {1.603490126108551, 
     27.020855706551437`}, {1.6307377628618398`, 27.213057827449806`}, {
     1.6561670232845362`, 27.411331245570484`}, {1.683725275797693, 
     27.646455651316007`}, {1.7107809414539419`, 27.897479946013018`}, {
     1.7360182307795984`, 28.149432149174604`}, {1.7633845121957155`, 
     28.44184109712458}, {1.7889324172812402`, 28.732689690899697`}, {
     1.813977735509857, 29.034440704156733`}, {1.841152045828934, 
     29.38034851039388}, {1.866507979817419, 29.720401100872575`}, {
     1.893992905896364, 30.107796476220173`}, {1.9209752451184012`, 
     30.5070830264997}, {1.9461392080098463`, 30.896387686645188`}, {
     1.9734321629917517`, 31.337100470478276`}, {1.9989067416430648`, 
     31.76581321007746}, {1.9999999736842105`, 31.78458687209987}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Fiber Diam\"", TraditionalForm], 
    FormBox["\"Time\"", TraditionalForm]},
  AxesOrigin->{1.5, 27.},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.5, 2}, {26.472019734630617`, 31.78458687209987}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.567089959921875*^9, 3.56709046275*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"STimeAll", "[", 
      RowBox[{"500", ",", "410", ",", ".75", ",", "10", ",", 
       RowBox[{"RMSSpot7", "[", "500", "]"}], ",", "FWHMfixDS", ",", 
       "DefocMH", ",", "56.73", ",", "DAp", ",", "0", ",", "0", ",", "7500", 
       ",", "20"}], "]"}], ",", 
     RowBox[{"STimeAllADC", "[", 
      RowBox[{"500", ",", ".75", ",", "10", ",", 
       RowBox[{"RMSSpot7", "[", "500", "]"}], ",", "FWHMfixDS", ",", 
       "DefocMH", ",", "56.73", ",", "DAp", ",", "0", ",", "0", ",", "7500", 
       ",", "20"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"DAp", ",", "1.5", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"\"\<Fiber Diam\>\"", ",", "\"\<Time\>\""}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
   "survey", " ", "time", " ", "vs", " ", "fiber", " ", "size", " ", "for", 
    " ", "qsos", " ", "at", " ", "350", "nm"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.56518743709375*^9, 3.56518746646875*^9}, {
  3.565187590375*^9, 3.56518759528125*^9}, {3.565187707671875*^9, 
  3.565187788234375*^9}, {3.56518812803125*^9, 3.56518813096875*^9}, {
  3.565188877375*^9, 3.565188877953125*^9}, {3.565188922421875*^9, 
  3.565188923*^9}, {3.56518908640625*^9, 3.5651891205*^9}, {
  3.566655069421875*^9, 3.5666550740625*^9}, {3.566807946734375*^9, 
  3.566808002328125*^9}, {3.566809351515625*^9, 3.5668093554375*^9}, {
  3.566809420734375*^9, 3.566809423984375*^9}, {3.56680946534375*^9, 
  3.566809481*^9}, {3.56680953290625*^9, 3.566809559*^9}, {
  3.566809682703125*^9, 3.56680971296875*^9}, {3.566809865640625*^9, 
  3.566809865984375*^9}, {3.56708727203125*^9, 3.5670872793125*^9}, {
  3.567087379859375*^9, 3.567087384640625*^9}, {3.567088724546875*^9, 
  3.56708881571875*^9}, {3.567088871703125*^9, 3.56708887853125*^9}, {
  3.5670890746875*^9, 3.56708908675*^9}, {3.567089214234375*^9, 
  3.567089227953125*^9}, {3.567090157*^9, 3.56709015709375*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000263157895`, 24.70833529470117}, {1.5253106420756577`, 
     24.696047090147495`}, {1.5527502499259862`, 24.705040613226398`}, {
     1.5783714814457226`, 24.733702006021318`}, {1.603490126108551, 
     24.780215678405533`}, {1.6307377628618398`, 24.85070443317942}, {
     1.6561670232845362`, 24.934807528292364`}, {1.683725275797693, 
     25.04543188893242}, {1.7107809414539419`, 25.17331270411759}, {
     1.7360182307795984`, 25.309467918797868`}, {1.7633845121957155`, 
     25.475179206359957`}, {1.7889324172812402`, 25.646581488428073`}, {
     1.813977735509857, 25.830048529654604`}, {1.841152045828934, 
     26.046187403839244`}, {1.866507979817419, 26.263721572249768`}, {
     1.893992905896364, 26.516650438382868`}, {1.9209752451184012`, 
     26.782152555313612`}, {1.9461392080098463`, 27.045019383960522`}, {
     1.9734321629917517`, 27.346688223378788`}, {1.9989067416430648`, 
     27.64375009945837}, {1.9999999736842105`, 27.656832447660953`}}]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000263157895`, 20.307460483225544`}, {1.5253106420756577`,
      20.43223407154909}, {1.5527502499259862`, 20.584979272841558`}, {
     1.5783714814457226`, 20.743685139363286`}, {1.603490126108551, 
     20.914086150251695`}, {1.6307377628618398`, 21.115249453476743`}, {
     1.6561670232845362`, 21.318101605883577`}, {1.683725275797693, 
     21.554215988770505`}, {1.7107809414539419`, 21.80233299945456}, {
     1.7360182307795984`, 22.0482217664675}, {1.7633845121957155`, 
     22.330511171366858`}, {1.7889324172812402`, 22.60867666637349}, {
     1.813977735509857, 22.89503926085188}, {1.841152045828934, 
     23.221020262724586`}, {1.866507979817419, 23.53951377095405}, {
     1.893992905896364, 23.900372981515613`}, {1.9209752451184012`, 
     24.270463934031973`}, {1.9461392080098463`, 24.629780165420158`}, {
     1.9734321629917517`, 25.035001027520444`}, {1.9989067416430648`, 
     25.42783799929742}, {1.9999999736842105`, 25.445012519043225`}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Fiber Diam\"", TraditionalForm], 
    FormBox["\"Time\"", TraditionalForm]},
  AxesOrigin->{1.5, 21.},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.5, 2}, {20.307460483225544`, 27.656832447660953`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.56709007146875*^9, 3.567090572578125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"BigBOSS", " ", "stuff"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.56386023325*^9, 3.5638602419375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"STime", "[", 
      RowBox[{"850", ",", "850", ",", ".75", ",", "10", ",", 
       RowBox[{"RMSSpot7", "[", "850", "]"}], ",", "FWHMfixDS", ",", 
       "DefocMH", ",", "56.73", ",", "DAp", ",", "Relg", ",", "0", ",", 
       "6000", ",", "80"}], "]"}], ",", 
     RowBox[{"STimeADC", "[", 
      RowBox[{"850", ",", ".9", ",", "10", ",", 
       RowBox[{"RMSSpot7", "[", "850", "]"}], ",", "FWHMfixDS", ",", "0", ",",
        "56.73", ",", "DAp", ",", "Relg", ",", "0", ",", "6000", ",", "80"}], 
      "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"DAp", ",", "1.5", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"\"\<Fiber Diam\>\"", ",", "\"\<Time\>\""}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
   "survey", " ", "time", " ", "vs", " ", "fiber", " ", "size", " ", "for", 
    " ", "elgs"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.56518743709375*^9, 3.56518746646875*^9}, {
   3.565187590375*^9, 3.56518759528125*^9}, {3.565187707671875*^9, 
   3.565187788234375*^9}, {3.56518812803125*^9, 3.56518813096875*^9}, {
   3.565188877375*^9, 3.565188877953125*^9}, {3.565188922421875*^9, 
   3.565188923*^9}, {3.56518908640625*^9, 3.5651891205*^9}, {
   3.566655069421875*^9, 3.5666550740625*^9}, {3.566807946734375*^9, 
   3.566808002328125*^9}, {3.566809351515625*^9, 3.5668093554375*^9}, {
   3.566809420734375*^9, 3.566809423984375*^9}, {3.56680946534375*^9, 
   3.566809481*^9}, {3.566819055203125*^9, 3.5668190556875*^9}, {
   3.567085274625*^9, 3.56708528503125*^9}, {3.56708731184375*^9, 
   3.567087312546875*^9}, 3.5670895133125*^9, {3.56708985953125*^9, 
   3.56708987921875*^9}, {3.56708993890625*^9, 3.567089939390625*^9}, {
   3.567090170953125*^9, 3.5670901970625*^9}, {3.56709059040625*^9, 
   3.56709059871875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000263157895`, 12.729006948987099`}, {1.5253106420756577`,
      12.620927362991267`}, {1.5527502499259862`, 12.51611117814071}, {
     1.5783714814457226`, 12.429250596190226`}, {1.603490126108551, 
     12.353907220716586`}, {1.6307377628618398`, 12.28264556911202}, {
     1.6561670232845362`, 12.225521532595625`}, {1.683725275797693, 
     12.173384252364308`}, {1.7107809414539419`, 12.131660436382834`}, {
     1.7360182307795984`, 12.100846990709229`}, {1.7633845121957155`, 
     12.075932279439694`}, {1.7889324172812402`, 12.060362541787566`}, {
     1.813977735509857, 12.052056740031588`}, {1.841152045828934, 
     12.050580379493908`}, {1.866507979817419, 12.05605523849564}, {
     1.893992905896364, 12.069233692339294`}, {1.9209752451184012`, 
     12.089290733468557`}, {1.9461392080098463`, 12.114180656229168`}, {
     1.9734321629917517`, 12.147752383400269`}, {1.9989067416430648`, 
     12.185116567375728`}, {1.9999999736842105`, 12.186848281343039`}}]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000263157895`, 16.02157732225121}, {1.5253106420756577`, 
     15.851665514212163`}, {1.5527502499259862`, 15.683505330215917`}, {
     1.5783714814457226`, 15.54073775140785}, {1.603490126108551, 
     15.413426588932216`}, {1.6307377628618398`, 15.288775062880767`}, {
     1.6561670232845362`, 15.184451505994542`}, {1.683725275797693, 
     15.083848006792284`}, {1.7107809414539419`, 14.997091824901055`}, {
     1.7360182307795984`, 14.926412440780924`}, {1.7633845121957155`, 
     14.860464324948696`}, {1.7889324172812402`, 14.808531047790238`}, {
     1.813977735509857, 14.766295641570268`}, {1.841152045828934, 
     14.729823108984883`}, {1.866507979817419, 14.704256321345312`}, {
     1.893992905896364, 14.685447413970664`}, {1.9209752451184012`, 
     14.675690517646396`}, {1.9461392080098463`, 14.674117546960362`}, {
     1.9734321629917517`, 14.680373844437655`}, {1.9989067416430648`, 
     14.693477202322416`}, {1.9999999736842105`, 14.694193500382315`}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Fiber Diam\"", TraditionalForm], 
    FormBox["\"Time\"", TraditionalForm]},
  AxesOrigin->{1.5, 12.},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.5, 2}, {12.050580379493908`, 16.02157732225121}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.567090735265625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Quiet", "[", 
  RowBox[{"NMinimize", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"STimeADC", "[", 
       RowBox[{"850", ",", ".9", ",", "10", ",", 
        RowBox[{"RMSSpot7", "[", "850", "]"}], ",", "FWHMfixDS", ",", "0", 
        ",", "56.73", ",", "DAp", ",", "Relg", ",", "0", ",", "6000", ",", 
        "80"}], "]"}], ",", 
      RowBox[{
       RowBox[{"DAp", "<", "2.5"}], "&&", 
       RowBox[{"DAp", ">", "1"}]}]}], "}"}], ",", "DAp"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.56682178878125*^9, 3.566821827265625*^9}, {
   3.566822375375*^9, 3.56682238175*^9}, {3.5670902320625*^9, 
   3.567090257296875*^9}, 3.5670906143125*^9, {3.56709086321875*^9, 
   3.567090868140625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"14.67383873149508`", ",", 
   RowBox[{"{", 
    RowBox[{"DAp", "\[Rule]", "1.9390922670859614`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.567090990484375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"STime", "[", 
      RowBox[{
      "350", ",", "410", ",", ".75", ",", "10", ",", "25", ",", "FWHMfixDS", 
       ",", "DefocMH", ",", "56.73", ",", "DAp", ",", "0", ",", "0", ",", 
       "7500", ",", "20"}], "]"}], ",", 
     RowBox[{"STimeADC", "[", 
      RowBox[{"350", ",", ".9", ",", "10", ",", 
       RowBox[{"17.5", "/", "1.5"}], ",", "FWHMfixDS", ",", "0", ",", "56.73",
        ",", "DAp", ",", "0", ",", "0", ",", "7500", ",", "20"}], "]"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"DAp", ",", "1.5", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"\"\<Fiber Diam\>\"", ",", "\"\<Time\>\""}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
   "survey", " ", "time", " ", "vs", " ", "fiber", " ", "size", " ", "for", 
    " ", "elgs"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.56518743709375*^9, 3.56518746646875*^9}, {
   3.565187590375*^9, 3.56518759528125*^9}, {3.565187707671875*^9, 
   3.565187788234375*^9}, {3.56518812803125*^9, 3.56518813096875*^9}, {
   3.565188877375*^9, 3.565188877953125*^9}, {3.565188922421875*^9, 
   3.565188923*^9}, {3.56518908640625*^9, 3.5651891205*^9}, {
   3.566655069421875*^9, 3.5666550740625*^9}, {3.566807946734375*^9, 
   3.566808002328125*^9}, {3.566809351515625*^9, 3.5668093554375*^9}, {
   3.566809420734375*^9, 3.566809423984375*^9}, {3.56680946534375*^9, 
   3.566809481*^9}, {3.566819055203125*^9, 3.5668190556875*^9}, {
   3.567085274625*^9, 3.56708528503125*^9}, {3.56708731184375*^9, 
   3.567087312546875*^9}, 3.5670895133125*^9, {3.56708985953125*^9, 
   3.56708987921875*^9}, {3.56708993890625*^9, 3.567089939390625*^9}, {
   3.567090170953125*^9, 3.5670901970625*^9}, {3.5670904210625*^9, 
   3.567090445828125*^9}, {3.567090619984375*^9, 3.56709062440625*^9}, {
   3.5670906853125*^9, 3.567090690015625*^9}, {3.567090920921875*^9, 
   3.567090927234375*^9}, {3.567091158125*^9, 3.567091176140625*^9}, {
   3.5670981511875*^9, 3.567098157890625*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000263157895`, 75.88947999098146}, {1.5253106420756577`, 
     75.42720788336335}, {1.5527502499259862`, 74.99388000978426}, {
     1.5783714814457226`, 74.65010406593532}, {1.603490126108551, 
     74.3676622161812}, {1.6307377628618398`, 74.11991687370836}, {
     1.6561670232845362`, 73.9416365297686}, {1.683725275797693, 
     73.80396908010549}, {1.7107809414539419`, 73.72303082375375}, {
     1.7360182307795984`, 73.69435327896493}, {1.7633845121957155`, 
     73.71274585035805}, {1.7889324172812402`, 73.77506625849016}, {
     1.813977735509857, 73.87735636175624}, {1.841152045828934, 
     74.03333811371779}, {1.866507979817419, 74.22015193496232}, {
     1.893992905896364, 74.46667029059961}, {1.9209752451184012`, 
     74.75233498609194}, {1.9461392080098463`, 75.05701369278681}, {
     1.9734321629917517`, 75.42852785660928}, {1.9989067416430648`, 
     75.81326862672857}, {1.9999999736842105`, 75.83059252945392}}]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000263157895`, 68.61198438691069}, {1.5253106420756577`, 
     68.73805434430619}, {1.5527502499259862`, 68.93019398090995}, {
     1.5783714814457226`, 69.16004675618575}, {1.603490126108551, 
     69.43129894363295}, {1.6307377628618398`, 69.77555285381698}, {
     1.6561670232845362`, 70.14262210955431}, {1.683725275797693, 
     70.58917398875006}, {1.7107809414539419`, 71.07586915442229}, {
     1.7360182307795984`, 71.57215718678195}, {1.7633845121957155`, 
     72.15566482853795}, {1.7889324172812402`, 72.74234993853356}, {
     1.813977735509857, 73.35628878873736}, {1.841152045828934, 
     74.0653531116642}, {1.866507979817419, 74.76686148759588}, {
     1.893992905896364, 75.5703745549773}, {1.9209752451184012`, 
     76.40248022810783}, {1.9461392080098463`, 77.21691466624917}, {
     1.9734321629917517`, 78.14194665627114}, {1.9989067416430648`, 
     79.04434531771571}, {1.9999999736842105`, 79.08391226645963}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Fiber Diam\"", TraditionalForm], 
    FormBox["\"Time\"", TraditionalForm]},
  AxesOrigin->{1.5, 70.},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.5, 2}, {68.61198438691069, 79.08391226645963}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.567090816015625*^9, 3.567091119984375*^9, 
  3.567091275671875*^9, 3.567098253984375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"STime", "[", 
   RowBox[{"850", ",", "850", ",", ".75", ",", "10", ",", 
    RowBox[{"RMSSpot7", "[", "850", "]"}], ",", "FWHMfixDS", ",", "DefocMH", 
    ",", "56.73", ",", "1.84", ",", "Relg", ",", "0", ",", "6000", ",", 
    "80"}], "]"}], "/", 
  RowBox[{"STimeADC", "[", 
   RowBox[{"850", ",", ".9", ",", "10", ",", 
    RowBox[{"RMSSpot7", "[", "850", "]"}], ",", "FWHMfixDS", ",", "0", ",", 
    "56.73", ",", "1.45", ",", "Relg", ",", "0", ",", "6000", ",", "80"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.567090562453125*^9, 3.567090575578125*^9}, {
  3.5670906500625*^9, 3.5670906605625*^9}, {3.56709863834375*^9, 
  3.567098638421875*^9}}],

Cell[BoxData["0.7346830256845676`"], "Output",
 CellChangeTimes->{3.56709112640625*^9, 3.56709864684375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"STime", "[", 
   RowBox[{"800", ",", "800", ",", ".75", ",", "10", ",", 
    RowBox[{"RMSSpot7", "[", "800", "]"}], ",", "FWHMfixDS", ",", "DefocMH", 
    ",", "56.73", ",", "1.84", ",", "0", ",", "Rlrg", ",", "6000", ",", 
    "200"}], "]"}], "/", 
  RowBox[{"STimeADC", "[", 
   RowBox[{"800", ",", ".9", ",", "10", ",", 
    RowBox[{"RMSSpot7", "[", "800", "]"}], ",", "FWHMfixDS", ",", "0", ",", 
    "56.73", ",", "1.45", ",", "0", ",", "Rlrg", ",", "6000", ",", "200"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.567090562453125*^9, 3.567090575578125*^9}, {
  3.5670906500625*^9, 3.5670906605625*^9}, {3.567098372265625*^9, 
  3.567098406875*^9}, {3.56709863315625*^9, 3.56709863321875*^9}}],

Cell[BoxData["0.7450592393925836`"], "Output",
 CellChangeTimes->{3.56709112640625*^9, 3.567098413796875*^9, 
  3.56709864134375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"STime", "[", 
   RowBox[{"350", ",", "400", ",", ".75", ",", "10", ",", 
    RowBox[{"RMSSpot7", "[", "350", "]"}], ",", "FWHMfixDS", ",", "DefocMH", 
    ",", "56.73", ",", "1.84", ",", "0", ",", "0", ",", "7500", ",", "20"}], 
   "]"}], "/", 
  RowBox[{"STimeADC", "[", 
   RowBox[{"350", ",", ".9", ",", "10", ",", 
    RowBox[{"17.5", "/", "4.5"}], ",", "FWHMfixDS", ",", "0", ",", "56.73", 
    ",", "1.45", ",", "0", ",", "0", ",", "7500", ",", "20"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.567090562453125*^9, 3.567090575578125*^9}, {
  3.5670906500625*^9, 3.5670906605625*^9}, {3.567098443578125*^9, 
  3.567098500265625*^9}, {3.567098629375*^9, 3.56709862946875*^9}}],

Cell[BoxData["1.102783099393418`"], "Output",
 CellChangeTimes->{3.56709112640625*^9, 3.567098505453125*^9, 
  3.567098635109375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"STime", "[", 
   RowBox[{"400", ",", "400", ",", ".75", ",", "10", ",", 
    RowBox[{"RMSSpot7", "[", "400", "]"}], ",", "FWHMfixDS", ",", "DefocMH", 
    ",", "56.73", ",", "1.84", ",", "0", ",", "0", ",", "7500", ",", "20"}], 
   "]"}], "/", 
  RowBox[{"STimeADC", "[", 
   RowBox[{"400", ",", ".9", ",", "10", ",", 
    RowBox[{"17.5", "/", "4.5"}], ",", "FWHMfixDS", ",", "0", ",", "56.73", 
    ",", "1.45", ",", "0", ",", "0", ",", "7500", ",", "20"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.567090562453125*^9, 3.567090575578125*^9}, {
  3.5670906500625*^9, 3.5670906605625*^9}, {3.567098443578125*^9, 
  3.567098500265625*^9}, {3.567098539953125*^9, 3.5670985521875*^9}, {
  3.567098615984375*^9, 3.567098616234375*^9}}],

Cell[BoxData["1.0565050114460124`"], "Output",
 CellChangeTimes->{3.56709112640625*^9, 3.567098505453125*^9, 
  3.56709855746875*^9, 3.567098621640625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"STime", "[", 
   RowBox[{"450", ",", "400", ",", ".75", ",", "10", ",", 
    RowBox[{"RMSSpot7", "[", "450", "]"}], ",", "FWHMfixDS", ",", "DefocMH", 
    ",", "56.73", ",", "1.84", ",", "0", ",", "0", ",", "7500", ",", "20"}], 
   "]"}], "/", 
  RowBox[{"STimeADC", "[", 
   RowBox[{"450", ",", ".9", ",", "10", ",", 
    RowBox[{"17.5", "/", "4.5"}], ",", "FWHMfixDS", ",", "0", ",", "56.73", 
    ",", "1.45", ",", "0", ",", "0", ",", "7500", ",", "20"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.567090562453125*^9, 3.567090575578125*^9}, {
  3.5670906500625*^9, 3.5670906605625*^9}, {3.567098443578125*^9, 
  3.56709852684375*^9}, {3.567098620703125*^9, 3.5670986208125*^9}}],

Cell[BoxData["1.0958904972121106`"], "Output",
 CellChangeTimes->{
  3.56709112640625*^9, {3.567098505453125*^9, 3.567098531875*^9}, 
   3.56709862609375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"STime", "[", 
   RowBox[{"500", ",", "400", ",", ".75", ",", "10", ",", 
    RowBox[{"RMSSpot7", "[", "500", "]"}], ",", "FWHMfixDS", ",", "DefocMH", 
    ",", "56.73", ",", "1.84", ",", "0", ",", "0", ",", "7500", ",", "20"}], 
   "]"}], "/", 
  RowBox[{"STimeADC", "[", 
   RowBox[{"500", ",", ".9", ",", "10", ",", 
    RowBox[{"17.5", "/", "4.5"}], ",", "FWHMfixDS", ",", "0", ",", "56.73", 
    ",", "1.45", ",", "0", ",", "0", ",", "7500", ",", "20"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.567090562453125*^9, 3.567090575578125*^9}, {
  3.5670906500625*^9, 3.5670906605625*^9}, {3.567098443578125*^9, 
  3.567098500265625*^9}, {3.567098556375*^9, 3.56709857965625*^9}, {
  3.567098624953125*^9, 3.5670986250625*^9}}],

Cell[BoxData["1.2372280828129663`"], "Output",
 CellChangeTimes->{3.56709112640625*^9, 3.567098505453125*^9, 
  3.567098586390625*^9, 3.567098630609375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"4", "MOST", " ", "stuff"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.56493972778125*^9, 3.564939734953125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FWHMsee500", "=", "0.7"}]], "Input",
 CellChangeTimes->{{3.562143359578125*^9, 3.56214339121875*^9}, {
   3.562143459390625*^9, 3.562143479484375*^9}, 3.56214388584375*^9, {
   3.562165797949274*^9, 3.562165800261774*^9}, {3.56493975765625*^9, 
   3.564939757671875*^9}}],

Cell[BoxData["0.7`"], "Output",
 CellChangeTimes->{3.564939759203125*^9, 3.56507404878125*^9, 
  3.5666254833125*^9, 3.566746545453125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ApEtaDR7", "[", 
  RowBox[{"500", ",", "500", ",", "1.2", ",", 
   RowBox[{"1.5", "/", "2"}], ",", "0", ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047379765625*^9, 3.56204738490625*^9}, {3.562047607453125*^9, 
   3.562047607859375*^9}, 3.56204787240625*^9, {3.564939796828125*^9, 
   3.5649398154375*^9}, {3.565073013*^9, 3.56507301328125*^9}, 
   3.56507538534375*^9}],

Cell[BoxData["0.5836106962718055`"], "Output",
 CellChangeTimes->{3.56493982159375*^9, 3.565074048890625*^9, 
  3.56507457615625*^9, 3.566625483703125*^9, 3.566746545671875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ApEta", "[", 
  RowBox[{"0.35", ",", "0", ",", "0", ",", "20", ",", "0.75"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.564939964734375*^9, 3.564940017984375*^9}, {
   3.565073055703125*^9, 3.565073057328125*^9}, {3.565073157640625*^9, 
   3.565073157953125*^9}, 3.565075394359375*^9}],

Cell[BoxData["0.7196187583234628`"], "Output",
 CellChangeTimes->{{3.564940001546875*^9, 3.5649400193125*^9}, 
   3.565006811546875*^9, 3.565074048921875*^9, 3.56507457625*^9, 
   3.56662548390625*^9, 3.56674654575*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ApEta", "[", 
   RowBox[{"0.35", ",", "0", ",", "0", ",", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"20", "^", "2"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"0.707", "*", 
         RowBox[{"50", "/", 
          RowBox[{"(", 
           RowBox[{"2", "*", "3.24"}], ")"}]}]}], ")"}], "^", "2"}]}], "]"}], 
    ",", "0.75"}], "]"}], "/", 
  RowBox[{"ApEta", "[", 
   RowBox[{"0.35", ",", "0", ",", "0", ",", "20", ",", "0.75"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.564939964734375*^9, 3.564940039359375*^9}, {
  3.564940091796875*^9, 3.564940122171875*^9}, {3.564940345515625*^9, 
  3.56494034715625*^9}, {3.56494056815625*^9, 3.56494057696875*^9}, {
  3.564940615390625*^9, 3.56494062009375*^9}, {3.564940679109375*^9, 
  3.564940702046875*^9}, {3.5649410179375*^9, 3.564941018203125*^9}, {
  3.565073162359375*^9, 3.56507317184375*^9}, {3.565075394375*^9, 
  3.565075394375*^9}}],

Cell[BoxData["0.9900446495511916`"], "Output",
 CellChangeTimes->{
  3.564940124703125*^9, 3.56494036315625*^9, {3.564940571515625*^9, 
   3.56494057875*^9}, 3.5649406335625*^9, 3.5649407075*^9, 
   3.564941027921875*^9, 3.565074049546875*^9, 3.565074576296875*^9, 
   3.566625484140625*^9, 3.56674654584375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ApEta", "[", 
   RowBox[{"0.35", ",", "0", ",", "0", ",", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"20", "^", "2"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"0.707", "*", 
         RowBox[{"100", "/", 
          RowBox[{"(", 
           RowBox[{"2", "*", "3.24"}], ")"}]}]}], ")"}], "^", "2"}]}], "]"}], 
    ",", "0.75"}], "]"}], "/", 
  RowBox[{"ApEta", "[", 
   RowBox[{"0.35", ",", "0", ",", "0", ",", "20", ",", "0.75"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.564939964734375*^9, 3.564940039359375*^9}, {
  3.564940091796875*^9, 3.56494013575*^9}, {3.56494035190625*^9, 
  3.564940354046875*^9}, {3.564940588890625*^9, 3.564940622453125*^9}, {
  3.56494068228125*^9, 3.56494069865625*^9}, {3.5649410131875*^9, 
  3.56494101359375*^9}, {3.56507318065625*^9, 3.565073185390625*^9}, {
  3.565075394375*^9, 3.565075394390625*^9}}],

Cell[BoxData["0.9609368120957146`"], "Output",
 CellChangeTimes->{3.5649401370625*^9, 3.564940363296875*^9, 
  3.564940633703125*^9, 3.564940707671875*^9, 3.564941028078125*^9, 
  3.5650740495625*^9, 3.56507457634375*^9, 3.5666254845*^9, 
  3.566746545953125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ApEta", "[", 
   RowBox[{"0.35", ",", "0", ",", "0", ",", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"20", "^", "2"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"0.707", "*", 
         RowBox[{"170", "/", 
          RowBox[{"(", 
           RowBox[{"2", "*", "3.24"}], ")"}]}]}], ")"}], "^", "2"}]}], "]"}], 
    ",", "0.75"}], "]"}], "/", 
  RowBox[{"ApEta", "[", 
   RowBox[{"0.35", ",", "0", ",", "0", ",", "20", ",", "0.75"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.564939964734375*^9, 3.564940039359375*^9}, {
  3.564940091796875*^9, 3.564940122171875*^9}, {3.564940327578125*^9, 
  3.56494035659375*^9}, {3.564940592375*^9, 3.56494062546875*^9}, {
  3.564940685765625*^9, 3.5649406955625*^9}, {3.56494100403125*^9, 
  3.564941007140625*^9}, {3.565073191765625*^9, 3.565073195796875*^9}, {
  3.565075394390625*^9, 3.565075394390625*^9}}],

Cell[BoxData["0.8927062696773592`"], "Output",
 CellChangeTimes->{3.564940331796875*^9, 3.564940363421875*^9, 
  3.564940633828125*^9, 3.56494070778125*^9, 3.5649410281875*^9, 
  3.56507404959375*^9, 3.56507457640625*^9, 3.5666254848125*^9, 
  3.566746546046875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ApEta", "[", 
   RowBox[{"0.35", ",", "0", ",", "0", ",", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"20", "^", "2"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"0.707", "*", 
         RowBox[{"200", "/", 
          RowBox[{"(", 
           RowBox[{"2", "*", "3.24"}], ")"}]}]}], ")"}], "^", "2"}]}], "]"}], 
    ",", "0.75"}], "]"}], "/", 
  RowBox[{"ApEta", "[", 
   RowBox[{"0.35", ",", "0", ",", "0", ",", "20", ",", "0.75"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.564939964734375*^9, 3.564940039359375*^9}, {
  3.564940091796875*^9, 3.564940144*^9}, {3.564940358765625*^9, 
  3.564940359015625*^9}, {3.564940594890625*^9, 3.5649406080625*^9}, {
  3.564940688359375*^9, 3.564940692171875*^9}, {3.564940994421875*^9, 
  3.56494099740625*^9}, {3.56507320046875*^9, 3.56507320475*^9}, {
  3.56507539440625*^9, 3.56507539440625*^9}}],

Cell[BoxData["0.856011180783916`"], "Output",
 CellChangeTimes->{3.56494014534375*^9, 3.56494036353125*^9, 
  3.564940633921875*^9, 3.564940707890625*^9, 3.564941028296875*^9, 
  3.565074049625*^9, 3.565074576453125*^9, 3.566625485109375*^9, 
  3.56674654615625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"Gaussian", " ", "test"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.567090354328125*^9, 3.567090376828125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SN", "[", "R_", "]"}], ":=", " ", 
  RowBox[{
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"r", " ", 
      RowBox[{"Exp", "[", 
       RowBox[{"-", 
        RowBox[{"r", "^", "2"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "0", ",", "R"}], "}"}]}], "]"}], " ", "/", 
   "R"}]}]], "Input",
 CellChangeTimes->{{3.5664113476875*^9, 3.5664114025625*^9}, {
  3.56641150378125*^9, 3.566411510078125*^9}, {3.56641156990625*^9, 
  3.566411570359375*^9}, {3.566411610734375*^9, 3.5664116110625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"SN", "'"}], "[", "R", "]"}], "\[Equal]", "0"}], ",", 
   RowBox[{"{", 
    RowBox[{"R", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.566411454984375*^9, 3.566411477515625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"R", "\[Rule]", "1.120906422778534`"}], "}"}]], "Output",
 CellChangeTimes->{3.56641148015625*^9, 3.566411515984375*^9, 
  3.56641157628125*^9, 3.56641161628125*^9, 3.56662548571875*^9, 
  3.56674654640625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"SN", "[", "R", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"R", ",", "0", ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.566411529359375*^9, 3.566411548546875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nk4VdsbB3CESpOpkgaUcs00yS2+R5QMmSlyK4dLxlJR0iVRqERlyliR
0u2Qop8pQxQVOsfZFaXImPFMFFF+6/5xnn0+e+/n2Xuv9b7ftZToR+3+FhES
Epomv/+OmWF0cV2PUEPyt2bjSV/Derai5T5FZ4Rmebk6Kpph9mVVpKKiNywy
JF/IkfOZNXEKYooh+FvRan2/gjf8DIL8fyjEIsfn+MVQhRCwp48kchVu4tl9
iUXCa2Ix91O3yqhCPq4MdxnqyN3E7dfZgcMKZXjbU/xZQjgfBYWxn/y0XkPd
PfiiSm4ZvMC6OXKcDfOzN9bzbjxHQJ9qT3FBO07eiWXlljZAQilKpXNbF+R3
1d11zGhC445r2mG7umBb9PmBHKMJF/dn6a2268IJpXFb5rMmiCSUmh7w7ULe
7SunVnc24efvEa8PmV24dfd9pZZSM4Y7HO+/FfmKu2L2m9RymtGUqqJa0/QV
+wYjxwKyWnCpeLPuofav4Ljod1czWrCHaaT/u+8rzEQclok9a0H9XFezHbNf
4aInu9XvUwsqgxO8S3W74Zl4UJqx/C0YDlP5j5K78TGcbfcj7i2uSr5Ru324
B+EbvM2Y25go01tdYhXQg7a8knorGhO9B49iJrQHLdp79F6aMrGdIeOwL6UH
Ioc1ZrOdmPhm5vrPopYeuFz+IDZ7ggnjyNG3Idt78cNL3t2HwcTkxJIgu2V9
0G4WthHIs7BuNX12dl0fwi21H8UrsWBlUhzL0O1DGefPaeU/WLh7fX/WvL19
0FQUtftzCwt22rcbqiL7YNXsLCppzQLjyEZ5dV4fjpgNZHtFsED/5FA9p6kf
6nsVFr7uYkEi/at/YHs/roQYpnr3s/DYJWBVZ38/ZE+EuoqMsDDnY3RIufAA
CmR0ExR+sJDbVr4pUG8A8jNdZfMWtaL/neL9L3cGMKsp25qs1wof5khCWcg3
5FfXzt6PboV0QghUor/hbu0/ToFXWlFuLT6WmPgN9UnrxTdda8WCtwoWxwq/
wXgwI+hOWiseNtuJqfR9Q7cDt0KX0Yqx16UhiTaD2LqGoS7DakXgiyj6UZUh
dOa3Px6RYWNN727x75uG4MnVUcpezsYbkfkPztKGUJzwgG+xko31tDherPMQ
TFM2vkhcy0Z7edK53MtDUNC74NCjw4bRo7ysds4QAg3YF4Is2ZBKb/xoXDqM
wamC1WfC2agquxT2un4Y9So/VM6eZ8O3zXKtLWsYS+0uNZ2+wMaLpSzvg0PD
0F+ydcTtMhshCe2Tp1eNYDy5tEKQzMbXC0PLCs6N4MvVSoflDDaKji20lzMb
xaSWbLXfOzaa0mRCGE6jaCn7fXzyAxv99fLZOz1GUawhuyrsIxvyK1SH/cJH
cUBIxvlUJxtRtbsia0tGsXmLXYvSIBtO0uFPfNaOIaN0s7bzNBvHdlxsn9Ue
Aye4If7CLzYuecbNJhqMwVhJXfbhLBvV5ekW1fvHkFR9PHFgDoU/3Et7ZOLH
8PPQVIPcQgo/n/Bknk2PQSx6x7+eKynIfpnUt5vPwfV23v+2rqagNU/o8MAy
DhrcvqwQVqDg7rr4odRGDsSsFw9FraXQJKpu4nmEg59yG5aaqVLo19roMx3E
QUtOl/KIGgUhZ/2EhEgOsn0Cc2I1KGxhmHaUZ3FQYSv584k2hSxHj5NL3nEQ
uiz1yMstFErDfdNyuznwPWBmbqBHgZ1/vEafy4GR6u/igm0URMNp4o/FuFjy
4dHGiO0UtrGt7DoUudi74LBGH43C7VDfIZ19XPws8Jv30JyCTs38yei/uDB3
tBYut6BQI3pfrNOdC10Hxt91lhS64noV445x0SYncrbRisKaW3/tG4zlYual
h2aGHYWC3mkPWgIXDYuPMi/YUzBQTTuekkycQZ/wcaDg+vh93K4cLupO2jNV
nCik1VvX367kwiTz2Qo/Zwpq88dYk8+5OG/uu3KjC4WyvVc6rV9xEedVUSIg
bnvf+PPXOy5yNhdXe7tSWDZopOvC4cI3xCVE6RCFPM0uw6IJLpZHeSbUE285
HmY5b4aLsVdS+9wPU3CYLvd6Oo+HzZ3vf99wo3B90eYs6bU8jMmYzH/uTmGt
Xeu/3n/wEKLlN7bTg0JR8rGyGi0eSo75pVUTMxUYVMB2HmoU79g9/JvCYQ+L
7hdGPJgPF3qs8qTAuT/IWbWHh+z43WYxxIs3bljwxoGH0XsNSfZeZP6C6+XW
HuBBND1hzhNizQr6hhA38vyD2daLj1CwNMk2UgngIZdmf7WUuCPGwDrsJA8y
VzouzvWm4Nv8yfXdGR6OzJzwtiO+5CR3OjKaBxF+xuQnYvn0pxc+xvEQ0bX8
X3kfCvmdDjd0E3kwrj5h70i8TVlwKyaNh3mv8sYvEzceuVbQeYsH/ZZ716qI
9zO0K7fe48FXN0BzlHiA1/wqjsFDSw/v9XJfCsFb/T70PuGh2E3d35BYPFSi
b3s5DxKFMsvdiJOr7/Ov1/DQYZ/7Jpx4vaip0NBLHj7u/xCXRly8p2+RUTOx
8b3DRcQmcZErU9k8eMguMa0nplhKqpx2HgxpEiZsYvdlNVt3d/HAL0x0+ULM
dzloktlP7q94ENdHfD57xnZ8hAf6BrOub8Q2OqWB6gIebsoXuP3nNbUnrtGn
eLgq912rl3jEVrvo5iwPSVV88w7i8u4hJlOMDx2R4FImccyJPO7chXyIa9qd
qSV2EqVLQpqP1nbnGwXEykmrdYLl+HDgHRJP/e991rdbM9bwYXFP7/0/xDVP
E4/2KvPhd6pY7DDxVVOb+JXqfLisfZDy33i5ti0otNPl486DkasriNW8G1pi
9fiotbUZ45Lxnpw6P1ZjwId8Un5pPfHLS4aLJ435mFVr5iYS0x+W7PW04ePi
xoYSNWIdg0D/TCc+iqT37OGS+f/drBFHufIRt+qb/WPiNE5O005vPnwDOr6q
Ex85d2gk5Cgfv4I6vHtIfW2VWrmwKIiPy4r2wSnErRuvWyic50NA+6UyQerz
Vt1eX6cYPoa9P7dmEQc4zL8cd5V8T3Lcol3EEsHnXk+n8dFhXGoQTerdqCzA
rO0JH72fitq6Sb8sNlfzXlLOh9SJK7aBxB0f+2J21/ChmDtybIb02+kZ18bi
Jj5OvUktmEf8CBam1/r46B6WD5oi/RrGFPdqHOZjzrLMQH9iS7fnF2d5fPCj
nNW/kP7+dl7/pf9vPpIWffxacpCC4kuVXebLBZAUcntgSPJhzKnHI2K1AGf+
WN2VeoBC5UBWVOk6AdSp2kEOyZP985fVb9ARYKhWLiqR5E+CpajxHDMB4toN
lEtJPgmxu2iVZwSIn8297GtDIWqw6vaZCAEqhOi9EdYU5gtliujHCDD6LuVp
IslDaU3n+pIkASrL3r4rJHm5PpplWvhIgFM7hDwq91Aw3/7c6k6/ACohMt26
JH9bbG8VHh4VYPnBJ+ekQMH+SJikwrgAcyWlW0cNSL0k/dmaLjyOW+tM0zNI
fgdwHjsmrRrHFUtxdfZWCjdyclxj7MbhHCPqfI+sF3LlEc92O4/jug+vyV6d
Qgbz0Bqxw+N4uFRH4xdZb/J+reyK8B/Hy5H88t0qZP3Yl+geGjOOsEtxISVK
ZH4WXPAJqBrHwqp3l0WXUdhw0vO0g9oEVm1q1I2YYUPzz077bJ0J2LCYFWM/
2dgstF97aOsEohqmvjtPsbHzill/uPEEjM1vXVb9zsbBXA2Hf10nkLPu8RkG
h41kiq8tEj+BX/p/Ms272RDbEj5QKJjA9YBF68desNE7keK04Nl3hHlH6/pE
s3HHaNOJz3XfcfbiI3cNsp84FNcSX/j6O9qs7+aMkP3GR2WxV/Zt30Hf5uPs
FcYGy/749gzBd8hOmwh2BZH9SZGloqbaD3ycNr32gM5Gir/wkFXKD2SbNadv
2EH24X0+/1wPnMT+ut9FV4ZaYdWboL5mzU/kftDLWWbQiqE6+rlGxjQu3VN1
Gr/GgpbU+9XGh34hTNnfT+gdExKYcOsQ/EbLzZGBnRuYMB11+bHWUYjGCYyP
5Xa0oO25h7CLhjDtycp9szuimlESU39QcUKYVkdGvtC+CZ5iQV0tLSI0rZRF
tWar38D9eGjJwrQ5tAJs8dm++DW0vdRbLN1EacF7lxtnLH2Ft9IaC4L0xWj+
DNsseflGVBScT9eYI04bqd02/280IFRYzabpszgtYve/rJP0l5DoOLMnoHgu
rdP6r5l/Ul+gL08pMfvsPFp1pNzRvd/qkfjHCtEyx/k0B6X3aw5sqUdCmmeD
m6IEbbpY9lNxah1cEv9qWTggQdNhymcvmFeHSZO7U9lVC2gaM9Epm04+R0/f
ztPPoxfSPppXKK3h1+KOge7KZrdFNEUxD1+BXy0YF4KkvDQX03b7bpig/6hB
tKO7xZyJxbQjySdsf8XWYEvH7fzo5iW0ieCd0h4rapCqms5otpCkGfipVK73
rUZ4TVyqRZkkzfXTaNPxzCrsXel497WyFC3U/dn90M/PYBTQcEAqVopWsGT7
nCcbnyF7FV25aUKKNv9G2l1ORCWU6+4lWx2Qpj21vq1l0VuBBM3naq1V0jQX
o0F3fZsKeApEWa/UZGicFXfSDj4tB72IrxgbL0OTzRVOeqVRjsbX8yIrZ2Ro
Q3mTxQ2ZZfAz/prwijjR8PfUU2LJyrKs98Tlj1Ygj3g/w6ecS/xu3fVXUcQD
8U085V8ytGu02E4jYnHHhMNxxAythCWVGWUw7lxuePC3DG20aDb8UXoZ+vdx
LXyJXXfXNGQTX2I2Op8mHilMXhJP3FobEnSdmCl8IdufmJ776eFLYl66V40a
8Tnv7JXaszI0nSgT8btpZVDuPqW6g/iDE906kbjRxUbPjFgwnZQaSSxpKWzv
TjxWaahOJ87Wcr+UQqyxNNlWgXjnve2pucSDwfT0xcT9CrJ5RcQv8k36ft0s
I/3wovYN8Y7z5iEdxK2xmW/biM+pBNS9IQ4WCf7c99/1zHuLKojlQ62G+cQm
Pd/3PSCuEmyYmiX2nzpw5ybx/wF29dYT
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 5}, {0., 0.3190862837114762}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.566411559359375*^9, 3.5664115978125*^9, 
  3.56641164803125*^9, 3.5666255050625*^9, 3.566746564234375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"r", " ", "^", "3"}], " ", 
     RowBox[{"Exp", "[", 
      RowBox[{"-", 
       RowBox[{"r", "^", "2"}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}]}], "]"}], "/", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"r", " ", 
     RowBox[{"Exp", "[", 
      RowBox[{"-", 
       RowBox[{"r", "^", "2"}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5664118281875*^9, 3.56641186940625*^9}}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{{3.566411846*^9, 3.566411871078125*^9}, 
   3.566625505984375*^9, 3.566746564859375*^9}]
}, Open  ]]
},
WindowSize->{793, 763},
WindowMargins->{{Automatic, 161}, {-21, Automatic}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 28, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 5195, 111, 472, "Input"],
Cell[5766, 134, 181, 4, 31, "Input"],
Cell[5950, 140, 539, 17, 31, "Input"],
Cell[CellGroupData[{
Cell[6514, 161, 341, 8, 31, "Input"],
Cell[6858, 171, 836, 12, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7731, 188, 934, 22, 31, "Input"],
Cell[8668, 212, 1055, 15, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9760, 232, 480, 12, 31, "Input"],
Cell[10243, 246, 865, 15, 47, "Output"]
}, Open  ]],
Cell[11123, 264, 843, 24, 31, "Input"],
Cell[11969, 290, 405, 9, 31, "Input"],
Cell[CellGroupData[{
Cell[12399, 303, 528, 13, 31, "Input"],
Cell[12930, 318, 969, 14, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13936, 337, 159, 3, 31, "Input"],
Cell[14098, 342, 944, 19, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15079, 366, 1032, 23, 31, "Input"],
Cell[16114, 391, 1156, 17, 30, "Output"]
}, Open  ]],
Cell[17285, 411, 445, 8, 31, "Input"],
Cell[CellGroupData[{
Cell[17755, 423, 196, 4, 31, "Input"],
Cell[17954, 429, 800, 12, 30, "Output"]
}, Open  ]],
Cell[18769, 444, 925, 25, 31, "Input"],
Cell[19697, 471, 430, 11, 52, "Input"],
Cell[CellGroupData[{
Cell[20152, 486, 304, 8, 31, "Input"],
Cell[20459, 496, 783, 12, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21279, 513, 545, 16, 31, "Input"],
Cell[21827, 531, 836, 13, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22700, 549, 467, 11, 31, "Input"],
Cell[23170, 562, 947, 14, 30, "Output"]
}, Open  ]],
Cell[24132, 579, 378, 7, 31, "Input"],
Cell[24513, 588, 178, 3, 31, "Input"],
Cell[CellGroupData[{
Cell[24716, 595, 641, 16, 31, "Input"],
Cell[25360, 613, 1156, 17, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26553, 635, 487, 12, 31, "Input"],
Cell[27043, 649, 1086, 17, 30, "Output"]
}, Open  ]],
Cell[28144, 669, 693, 19, 31, "Input"],
Cell[CellGroupData[{
Cell[28862, 692, 322, 8, 31, "Input"],
Cell[29187, 702, 748, 11, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29972, 718, 529, 15, 31, "Input"],
Cell[30504, 735, 838, 14, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31379, 754, 382, 11, 31, "Input"],
Cell[31764, 767, 822, 13, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32623, 785, 665, 14, 31, "Input"],
Cell[33291, 801, 1193, 17, 30, "Output"]
}, Open  ]],
Cell[34499, 821, 417, 8, 31, "Input"],
Cell[34919, 831, 252, 6, 31, "Input"],
Cell[35174, 839, 416, 14, 31, "Input"],
Cell[CellGroupData[{
Cell[35615, 857, 495, 14, 31, "Input"],
Cell[36113, 873, 112, 1, 30, "Output"]
}, Open  ]],
Cell[36240, 877, 949, 23, 31, "Input"],
Cell[CellGroupData[{
Cell[37214, 904, 644, 15, 31, "Input"],
Cell[37861, 921, 641, 10, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38539, 936, 657, 18, 31, "Input"],
Cell[39199, 956, 448, 6, 30, "Output"]
}, Open  ]],
Cell[39662, 965, 1061, 25, 31, "Input"],
Cell[CellGroupData[{
Cell[40748, 994, 623, 15, 31, "Input"],
Cell[41374, 1011, 357, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41768, 1021, 560, 15, 31, "Input"],
Cell[42331, 1038, 423, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42791, 1050, 788, 16, 31, "Input"],
Cell[43582, 1068, 1242, 18, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44861, 1091, 681, 17, 31, "Input"],
Cell[45545, 1110, 5929, 103, 253, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51511, 1218, 489, 13, 31, "Input"],
Cell[52003, 1233, 358, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52398, 1243, 463, 12, 31, "Input"],
Cell[52864, 1257, 330, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53231, 1267, 140, 3, 31, "Input"],
Cell[53374, 1272, 330, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53741, 1282, 171, 4, 31, "Input"],
Cell[53915, 1288, 328, 5, 30, "Output"]
}, Open  ]],
Cell[54258, 1296, 174, 3, 31, "Input"],
Cell[54435, 1301, 691, 17, 31, "Input"],
Cell[CellGroupData[{
Cell[55151, 1322, 327, 8, 31, "Input"],
Cell[55481, 1332, 984, 15, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56502, 1352, 532, 15, 31, "Input"],
Cell[57037, 1369, 854, 14, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57928, 1388, 378, 11, 31, "Input"],
Cell[58309, 1401, 791, 13, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59137, 1419, 493, 13, 31, "Input"],
Cell[59633, 1434, 1044, 15, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60714, 1454, 427, 11, 31, "Input"],
Cell[61144, 1467, 877, 13, 30, "Output"]
}, Open  ]],
Cell[62036, 1483, 540, 15, 31, "Input"],
Cell[62579, 1500, 208, 5, 31, "Input"],
Cell[62790, 1507, 3746, 85, 192, "Input"],
Cell[66539, 1594, 396, 8, 31, "Input"],
Cell[CellGroupData[{
Cell[66960, 1606, 161, 3, 31, "Input"],
Cell[67124, 1611, 249, 3, 23, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67410, 1619, 218, 4, 31, "Input"],
Cell[67631, 1625, 222, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67890, 1633, 264, 5, 31, "Input"],
Cell[68157, 1640, 261, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68455, 1648, 164, 3, 31, "Input"],
Cell[68622, 1653, 283, 4, 30, "Output"]
}, Open  ]],
Cell[68920, 1660, 1419, 31, 72, "Input"],
Cell[CellGroupData[{
Cell[70364, 1695, 173, 3, 31, "Input"],
Cell[70540, 1700, 287, 4, 30, "Output"]
}, Open  ]],
Cell[70842, 1707, 1549, 35, 72, "Input"],
Cell[72394, 1744, 779, 20, 72, "Input"],
Cell[CellGroupData[{
Cell[73198, 1768, 144, 3, 31, "Input"],
Cell[73345, 1773, 758, 11, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74140, 1789, 1039, 28, 52, "Input"],
Cell[75182, 1819, 744, 11, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[75963, 1835, 1372, 29, 52, "Input"],
Cell[77338, 1866, 7140, 124, 240, "Output"]
}, Open  ]],
Cell[84493, 1993, 1577, 35, 72, "Input"],
Cell[86073, 2030, 858, 20, 52, "Input"],
Cell[CellGroupData[{
Cell[86956, 2054, 137, 3, 31, "Input"],
Cell[87096, 2059, 730, 11, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[87863, 2075, 158, 3, 31, "Input"],
Cell[88024, 2080, 726, 11, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[88787, 2096, 1035, 28, 52, "Input"],
Cell[89825, 2126, 836, 13, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[90698, 2144, 1301, 28, 52, "Input"],
Cell[92002, 2174, 7848, 136, 240, "Output"]
}, Open  ]],
Cell[99865, 2313, 1782, 38, 72, "Input"],
Cell[101650, 2353, 1099, 24, 52, "Input"],
Cell[CellGroupData[{
Cell[102774, 2381, 1132, 29, 52, "Input"],
Cell[103909, 2412, 1008, 15, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[104954, 2432, 1464, 30, 52, "Input"],
Cell[106421, 2464, 7425, 128, 240, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[113883, 2597, 170, 4, 31, "Input"],
Cell[114056, 2603, 309, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[114402, 2612, 186, 4, 31, "Input"],
Cell[114591, 2618, 310, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[114938, 2627, 1220, 30, 52, "Input"],
Cell[116161, 2659, 353, 5, 30, "Output"]
}, Open  ]],
Cell[116529, 2667, 93, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[116647, 2672, 1551, 32, 52, "Input"],
Cell[118201, 2706, 8381, 145, 240, "Output"]
}, Open  ]],
Cell[126597, 2854, 381, 8, 92, "Input"],
Cell[CellGroupData[{
Cell[127003, 2866, 230, 5, 31, "Input"],
Cell[127236, 2873, 227, 3, 30, "Output"]
}, Open  ]],
Cell[127478, 2879, 1290, 27, 52, "Input"],
Cell[CellGroupData[{
Cell[128793, 2910, 219, 4, 31, "Input"],
Cell[129015, 2916, 573, 9, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[129625, 2930, 444, 12, 31, "Input"],
Cell[130072, 2944, 285, 4, 30, "Output"]
}, Open  ]],
Cell[130372, 2951, 751, 17, 31, "Input"],
Cell[131126, 2970, 500, 13, 31, "Input"],
Cell[CellGroupData[{
Cell[131651, 2987, 686, 12, 31, "Input"],
Cell[132340, 3001, 89, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[132466, 3007, 444, 8, 31, "Input"],
Cell[132913, 3017, 93, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[133043, 3023, 170, 3, 31, "Input"],
Cell[133216, 3028, 272, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[133525, 3037, 221, 4, 31, "Input"],
Cell[133749, 3043, 234, 3, 30, "Output"]
}, Open  ]],
Cell[133998, 3049, 751, 18, 31, "Input"],
Cell[CellGroupData[{
Cell[134774, 3071, 121, 2, 31, "Input"],
Cell[134898, 3075, 73, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[135008, 3081, 1245, 26, 112, "Input"],
Cell[136256, 3109, 786, 12, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[137079, 3126, 121, 2, 31, "Input"],
Cell[137203, 3130, 71, 1, 30, "Output"]
}, Open  ]],
Cell[137289, 3134, 1327, 27, 72, "Input"],
Cell[138619, 3163, 2569, 53, 92, "Input"],
Cell[CellGroupData[{
Cell[141213, 3220, 969, 21, 52, "Input"],
Cell[142185, 3243, 1666, 33, 213, "Output"]
}, Open  ]],
Cell[143866, 3279, 1051, 17, 332, "Input"],
Cell[144920, 3298, 3070, 69, 152, "Input"],
Cell[CellGroupData[{
Cell[148015, 3371, 1043, 23, 72, "Input"],
Cell[149061, 3396, 1688, 33, 218, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[150786, 3434, 1865, 44, 112, "Input"],
Cell[152654, 3480, 6999, 112, 226, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[159690, 3597, 1723, 39, 92, "Input"],
Cell[161416, 3638, 5890, 94, 237, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[167343, 3737, 1355, 24, 372, "Input"],
Cell[168701, 3763, 1935, 30, 335, "Output"]
}, Open  ]],
Cell[170651, 3796, 1285, 29, 52, "Input"],
Cell[171939, 3827, 2164, 49, 92, "Input"],
Cell[CellGroupData[{
Cell[174128, 3880, 2017, 42, 92, "Input"],
Cell[176148, 3924, 2773, 47, 241, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[178958, 3976, 419, 10, 31, "Input"],
Cell[179380, 3988, 302, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[179719, 4000, 428, 10, 31, "Input"],
Cell[180150, 4012, 259, 7, 30, "Output"]
}, Open  ]],
Cell[180424, 4022, 214, 5, 31, "Input"],
Cell[180641, 4029, 1206, 30, 52, "Input"],
Cell[CellGroupData[{
Cell[181872, 4063, 345, 9, 31, "Input"],
Cell[182220, 4074, 7047, 121, 250, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[189304, 4200, 393, 10, 31, "Input"],
Cell[189700, 4212, 18893, 316, 248, 12858, 217, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[208630, 4533, 155, 3, 31, "Input"],
Cell[208788, 4538, 1011, 16, 45, "Output"]
}, Open  ]],
Cell[209814, 4557, 1724, 36, 52, "Input"],
Cell[CellGroupData[{
Cell[211563, 4597, 637, 10, 31, "Input"],
Cell[212203, 4609, 910, 13, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[213150, 4627, 775, 16, 31, "Input"],
Cell[213928, 4645, 2110, 40, 248, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[216075, 4690, 780, 16, 31, "Input"],
Cell[216858, 4708, 2067, 39, 248, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[218962, 4752, 778, 16, 31, "Input"],
Cell[219743, 4770, 2097, 38, 238, "Output"]
}, Open  ]],
Cell[221855, 4811, 1821, 38, 52, "Input"],
Cell[CellGroupData[{
Cell[223701, 4853, 476, 11, 31, "Input"],
Cell[224180, 4866, 5499, 96, 233, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[229716, 4967, 560, 13, 31, "Input"],
Cell[230279, 4982, 5575, 96, 238, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[235891, 5083, 6144, 161, 252, "Input"],
Cell[242038, 5246, 17121, 294, 222, "Output"]
}, Open  ]],
Cell[259174, 5543, 550, 14, 52, "Input"],
Cell[259727, 5559, 205, 5, 31, "Input"],
Cell[CellGroupData[{
Cell[259957, 5568, 144, 3, 31, "Input"],
Cell[260104, 5573, 963, 14, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[261104, 5592, 225, 4, 31, "Input"],
Cell[261332, 5598, 965, 14, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[262334, 5617, 374, 10, 31, "Input"],
Cell[262711, 5629, 961, 14, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[263709, 5648, 119, 2, 31, "Input"],
Cell[263831, 5652, 935, 14, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[264803, 5671, 274, 5, 31, "Input"],
Cell[265080, 5678, 1077, 16, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[266194, 5699, 96, 2, 31, "Input"],
Cell[266293, 5703, 972, 15, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[267302, 5723, 832, 24, 31, "Input"],
Cell[268137, 5749, 1146, 17, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[269320, 5771, 1048, 31, 92, "Input"],
Cell[270371, 5804, 1152, 18, 30, "Output"]
}, Open  ]],
Cell[271538, 5825, 1147, 34, 72, "Input"],
Cell[CellGroupData[{
Cell[272710, 5863, 119, 2, 31, "Input"],
Cell[272832, 5867, 958, 14, 30, "Output"]
}, Open  ]],
Cell[273805, 5884, 538, 15, 31, "Input"],
Cell[CellGroupData[{
Cell[274368, 5903, 257, 5, 31, "Input"],
Cell[274628, 5910, 1257, 18, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[275922, 5933, 156, 3, 31, "Input"],
Cell[276081, 5938, 889, 14, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[277007, 5957, 159, 3, 31, "Input"],
Cell[277169, 5962, 156, 2, 30, "Output"]
}, Open  ]],
Cell[277340, 5967, 1585, 29, 372, "Input"],
Cell[278928, 5998, 1268, 23, 352, "Input"],
Cell[280199, 6023, 723, 19, 72, "Input"],
Cell[280925, 6044, 1309, 27, 292, "Input"],
Cell[282237, 6073, 4961, 114, 392, "Input"],
Cell[CellGroupData[{
Cell[287223, 6191, 492, 9, 31, "Input"],
Cell[287718, 6202, 451, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[288206, 6214, 449, 9, 31, "Input"],
Cell[288658, 6225, 292, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[288987, 6235, 553, 10, 31, "Input"],
Cell[289543, 6247, 267, 4, 30, "Output"]
}, Open  ]],
Cell[289825, 6254, 808, 16, 52, "Input"],
Cell[290636, 6272, 331, 7, 31, "Input"],
Cell[CellGroupData[{
Cell[290992, 6283, 724, 18, 52, "Input"],
Cell[CellGroupData[{
Cell[291741, 6305, 364, 9, 23, "Print"],
Cell[292108, 6316, 364, 9, 23, "Print"],
Cell[292475, 6327, 363, 9, 23, "Print"],
Cell[292841, 6338, 362, 9, 23, "Print"],
Cell[293206, 6349, 360, 9, 23, "Print"],
Cell[293569, 6360, 364, 9, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[293982, 6375, 1055, 24, 72, "Input"],
Cell[CellGroupData[{
Cell[295062, 6403, 255, 7, 23, "Print"],
Cell[295320, 6412, 255, 7, 23, "Print"],
Cell[295578, 6421, 255, 7, 23, "Print"],
Cell[295836, 6430, 254, 7, 23, "Print"],
Cell[296093, 6439, 253, 7, 23, "Print"],
Cell[296349, 6448, 255, 7, 23, "Print"],
Cell[296607, 6457, 255, 7, 23, "Print"],
Cell[296865, 6466, 254, 7, 23, "Print"],
Cell[297122, 6475, 257, 7, 23, "Print"],
Cell[297382, 6484, 256, 7, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[297687, 6497, 929, 22, 72, "Input"],
Cell[CellGroupData[{
Cell[298641, 6523, 341, 8, 23, "Print"],
Cell[298985, 6533, 341, 8, 23, "Print"],
Cell[299329, 6543, 341, 8, 23, "Print"],
Cell[299673, 6553, 340, 8, 23, "Print"],
Cell[300016, 6563, 340, 8, 23, "Print"],
Cell[300359, 6573, 341, 8, 23, "Print"],
Cell[300703, 6583, 338, 8, 23, "Print"],
Cell[301044, 6593, 341, 8, 23, "Print"],
Cell[301388, 6603, 343, 8, 23, "Print"],
Cell[301734, 6613, 342, 8, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[302103, 6625, 201, 5, 31, "Input"],
Cell[CellGroupData[{
Cell[302329, 6634, 723, 18, 52, "Input"],
Cell[CellGroupData[{
Cell[303077, 6656, 364, 9, 23, "Print"],
Cell[303444, 6667, 363, 9, 23, "Print"],
Cell[303810, 6678, 363, 9, 23, "Print"],
Cell[304176, 6689, 364, 9, 23, "Print"],
Cell[304543, 6700, 362, 9, 23, "Print"],
Cell[304908, 6711, 360, 9, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[305317, 6726, 973, 22, 72, "Input"],
Cell[CellGroupData[{
Cell[306315, 6752, 368, 9, 23, "Print"],
Cell[306686, 6763, 367, 9, 23, "Print"],
Cell[307056, 6774, 366, 9, 23, "Print"],
Cell[307425, 6785, 367, 9, 23, "Print"],
Cell[307795, 6796, 364, 9, 23, "Print"],
Cell[308162, 6807, 365, 9, 23, "Print"],
Cell[308530, 6818, 368, 9, 23, "Print"],
Cell[308901, 6829, 368, 9, 23, "Print"],
Cell[309272, 6840, 370, 9, 23, "Print"],
Cell[309645, 6851, 370, 9, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[310042, 6864, 217, 5, 52, "Input"],
Cell[310262, 6871, 2104, 48, 92, "Input"],
Cell[312369, 6921, 426, 10, 31, "Input"],
Cell[CellGroupData[{
Cell[312820, 6935, 1184, 27, 92, "Input"],
Cell[314007, 6964, 31224, 389, 211, "Output",
 Evaluatable->False]
}, Open  ]],
Cell[CellGroupData[{
Cell[345268, 7358, 1355, 29, 92, "Input"],
Cell[346626, 7389, 23687, 296, 220, "Output",
 Evaluatable->False]
}, Open  ]],
Cell[CellGroupData[{
Cell[370350, 7690, 2107, 40, 92, "Input"],
Cell[372460, 7732, 1647, 32, 211, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[374144, 7769, 1026, 23, 92, "Input"],
Cell[375173, 7794, 257, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[375467, 7806, 2179, 41, 92, "Input"],
Cell[377649, 7849, 1648, 31, 199, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[379334, 7885, 1063, 24, 92, "Input"],
Cell[380400, 7911, 248, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[380685, 7922, 2272, 43, 92, "Input"],
Cell[382960, 7967, 1703, 33, 221, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[384700, 8005, 1119, 24, 92, "Input"],
Cell[385822, 8031, 212, 6, 30, "Output"]
}, Open  ]],
Cell[386049, 8040, 298, 6, 31, "Input"],
Cell[386350, 8048, 1739, 35, 112, "Input"],
Cell[388092, 8085, 2106, 42, 132, "Input"],
Cell[CellGroupData[{
Cell[390223, 8131, 1702, 35, 92, "Input"],
Cell[391928, 8168, 1850, 34, 205, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[393815, 8207, 1230, 27, 112, "Input"],
Cell[395048, 8236, 333, 8, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[395418, 8249, 424, 9, 31, "Input"],
Cell[395845, 8260, 145, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[396027, 8267, 221, 5, 31, "Input"],
Cell[396251, 8274, 107, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[396395, 8280, 640, 14, 72, "Input"],
Cell[397038, 8296, 108, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[397183, 8302, 1290, 29, 92, "Input"],
Cell[398476, 8333, 252, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[398765, 8345, 567, 12, 72, "Input"],
Cell[399335, 8359, 108, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[399480, 8365, 842, 21, 92, "Input"],
Cell[400325, 8388, 210, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[400572, 8399, 577, 12, 52, "Input"],
Cell[401152, 8413, 131, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[401320, 8420, 848, 21, 92, "Input"],
Cell[402171, 8443, 231, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[402439, 8454, 579, 13, 52, "Input"],
Cell[403021, 8469, 134, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[403192, 8476, 920, 22, 72, "Input"],
Cell[404115, 8500, 232, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[404384, 8511, 1022, 24, 92, "Input"],
Cell[405409, 8537, 211, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[405657, 8548, 556, 12, 52, "Input"],
Cell[406216, 8562, 88, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[406341, 8568, 1050, 24, 92, "Input"],
Cell[407394, 8594, 210, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[407641, 8605, 634, 14, 52, "Input"],
Cell[408278, 8621, 88, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[408403, 8627, 1073, 24, 92, "Input"],
Cell[409479, 8653, 210, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[409726, 8664, 648, 13, 52, "Input"],
Cell[410377, 8679, 87, 1, 30, "Output"]
}, Open  ]],
Cell[410479, 8683, 210, 4, 31, "Input"],
Cell[CellGroupData[{
Cell[410714, 8691, 1743, 35, 92, "Input"],
Cell[412460, 8728, 1842, 34, 214, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[414339, 8767, 1161, 26, 92, "Input"],
Cell[415503, 8795, 208, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[415748, 8806, 1237, 27, 92, "Input"],
Cell[416988, 8835, 206, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[417231, 8846, 1896, 37, 92, "Input"],
Cell[419130, 8885, 1986, 39, 206, "Output",
 Evaluatable->False]
}, Open  ]],
Cell[CellGroupData[{
Cell[421153, 8929, 1289, 28, 92, "Input"],
Cell[422445, 8959, 256, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[422738, 8971, 1887, 37, 92, "Input"],
Cell[424628, 9010, 1540, 30, 214, "Output"],
Cell[426171, 9042, 1936, 37, 200, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[428144, 9084, 1331, 29, 92, "Input"],
Cell[429478, 9115, 324, 9, 30, "Output"],
Cell[429805, 9126, 306, 9, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[430148, 9140, 1940, 38, 92, "Input"],
Cell[432091, 9180, 1540, 30, 200, "Output"],
Cell[433634, 9212, 20910, 264, 200, "Output",
 Evaluatable->False]
}, Open  ]],
Cell[CellGroupData[{
Cell[454581, 9481, 1353, 29, 92, "Input"],
Cell[455937, 9512, 253, 7, 30, "Output"]
}, Open  ]],
Cell[456205, 9522, 1374, 33, 172, "Input"],
Cell[CellGroupData[{
Cell[457604, 9559, 2317, 46, 112, "Input"],
Cell[459924, 9607, 2578, 46, 225, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[462539, 9658, 2362, 46, 112, "Input"],
Cell[464904, 9706, 2651, 46, 207, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[467592, 9757, 2365, 46, 112, "Input"],
Cell[469960, 9805, 2614, 45, 207, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[472611, 9855, 2360, 46, 112, "Input"],
Cell[474974, 9903, 2623, 45, 208, "Output"]
}, Open  ]],
Cell[477612, 9951, 154, 3, 31, "Input"],
Cell[CellGroupData[{
Cell[477791, 9958, 2227, 45, 112, "Input"],
Cell[480021, 10005, 2615, 45, 225, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[482673, 10055, 742, 18, 52, "Input"],
Cell[483418, 10075, 210, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[483665, 10086, 2410, 48, 112, "Input"],
Cell[486078, 10136, 2604, 46, 207, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[488719, 10187, 691, 14, 52, "Input"],
Cell[489413, 10203, 108, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[489558, 10209, 735, 14, 52, "Input"],
Cell[490296, 10225, 133, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[490466, 10232, 718, 14, 52, "Input"],
Cell[491187, 10248, 133, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[491357, 10255, 769, 15, 52, "Input"],
Cell[492129, 10272, 155, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[492321, 10279, 719, 14, 52, "Input"],
Cell[493043, 10295, 158, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[493238, 10303, 765, 15, 52, "Input"],
Cell[494006, 10320, 156, 2, 30, "Output"]
}, Open  ]],
Cell[494177, 10325, 161, 3, 31, "Input"],
Cell[CellGroupData[{
Cell[494363, 10332, 295, 5, 31, "Input"],
Cell[494661, 10339, 139, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[494837, 10346, 453, 8, 31, "Input"],
Cell[495293, 10356, 177, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[495507, 10363, 309, 6, 31, "Input"],
Cell[495819, 10371, 219, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[496075, 10379, 954, 23, 31, "Input"],
Cell[497032, 10404, 312, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[497381, 10414, 905, 22, 31, "Input"],
Cell[498289, 10438, 263, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[498589, 10447, 911, 22, 31, "Input"],
Cell[499503, 10471, 266, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[499806, 10480, 903, 22, 31, "Input"],
Cell[500712, 10504, 266, 4, 30, "Output"]
}, Open  ]],
Cell[500993, 10511, 160, 3, 31, "Input"],
Cell[501156, 10516, 556, 15, 31, "Input"],
Cell[CellGroupData[{
Cell[501737, 10535, 282, 8, 31, "Input"],
Cell[502022, 10545, 249, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[502308, 10555, 235, 6, 31, "Input"],
Cell[502546, 10563, 5569, 97, 240, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[508152, 10665, 615, 19, 31, "Input"],
Cell[508770, 10686, 136, 2, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
